
// this is autogenerated file, do not edit it.
#include "ficus/ficus.h"

struct _fx_Nt10Hashset__t1R9Ast__id_t_data_t;

static void _fx_free_Nt10Hashset__t1R9Ast__id_t(struct _fx_Nt10Hashset__t1R9Ast__id_t_data_t** dst);

struct _fx_N13Ast__binary_t_data_t;

static void _fx_free_N13Ast__binary_t(struct _fx_N13Ast__binary_t_data_t** dst);

struct _fx_Nt6option1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t_data_t;

static void _fx_free_Nt6option1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t(
   struct _fx_Nt6option1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t_data_t** dst);

struct _fx_Nt6option1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t_data_t;

static void _fx_free_Nt6option1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t(
   struct _fx_Nt6option1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t_data_t** dst);

struct _fx_Nt6option1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t_data_t;

static void _fx_free_Nt6option1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t(
   struct _fx_Nt6option1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t_data_t** dst);

struct _fx_Nt6option1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t_data_t;

static void _fx_free_Nt6option1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t(
   struct _fx_Nt6option1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t_data_t** dst);

struct _fx_Nt6option1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t_data_t;

static void _fx_free_Nt6option1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t(
   struct _fx_Nt6option1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t_data_t** dst);

struct _fx_Nt6option1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t_data_t;

static void _fx_free_Nt6option1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t(
   struct _fx_Nt6option1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t_data_t** dst);

struct _fx_N14K_form__ktyp_t_data_t;

static void _fx_free_N14K_form__ktyp_t(struct _fx_N14K_form__ktyp_t_data_t** dst);

struct _fx_N14K_form__kexp_t_data_t;

static void _fx_free_N14K_form__kexp_t(struct _fx_N14K_form__kexp_t_data_t** dst);

struct _fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t;

static void _fx_free_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection(
   struct _fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t** dst);

struct _fx_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t;

static void _fx_free_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t(struct _fx_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t** dst);

typedef struct _fx_Ta2i {
   int_ t0;
   int_ t1;
} _fx_Ta2i;

typedef struct _fx_T2Ta2iS {
   struct _fx_Ta2i t0;
   fx_str_t t1;
} _fx_T2Ta2iS;

typedef struct _fx_R9Ast__id_t {
   int_ m;
   int_ i;
   int_ j;
} _fx_R9Ast__id_t;

typedef struct _fx_R10Ast__loc_t {
   int_ m_idx;
   int_ line0;
   int_ col0;
   int_ line1;
   int_ col1;
} _fx_R10Ast__loc_t;

typedef struct _fx_T2Bi {
   bool t0;
   int_ t1;
} _fx_T2Bi;

typedef struct _fx_N12Ast__scope_t {
   int tag;
   union {
      int_ ScBlock;
      struct _fx_T2Bi ScLoop;
      int_ ScFold;
      int_ ScArrMap;
      int_ ScMap;
      int_ ScTry;
      struct _fx_R9Ast__id_t ScFun;
      struct _fx_R9Ast__id_t ScClass;
      struct _fx_R9Ast__id_t ScInterface;
      int_ ScModule;
   } u;
} _fx_N12Ast__scope_t;

typedef struct _fx_LN12Ast__scope_t_data_t {
   int_ rc;
   struct _fx_LN12Ast__scope_t_data_t* tl;
   struct _fx_N12Ast__scope_t hd;
} _fx_LN12Ast__scope_t_data_t, *_fx_LN12Ast__scope_t;

typedef struct _fx_N17Ast__fun_constr_t {
   int tag;
   union {
      int_ CtorVariant;
      struct _fx_R9Ast__id_t CtorFP;
      struct _fx_R9Ast__id_t CtorExn;
   } u;
} _fx_N17Ast__fun_constr_t;

typedef struct _fx_R16Ast__fun_flags_t {
   int_ fun_flag_pure;
   bool fun_flag_ccode;
   bool fun_flag_have_keywords;
   bool fun_flag_inline;
   bool fun_flag_nothrow;
   bool fun_flag_really_nothrow;
   bool fun_flag_private;
   struct _fx_N17Ast__fun_constr_t fun_flag_ctor;
   struct _fx_R9Ast__id_t fun_flag_method_of;
   bool fun_flag_uses_fv;
   bool fun_flag_recursive;
   bool fun_flag_instance;
} _fx_R16Ast__fun_flags_t;

typedef struct _fx_LR9Ast__id_t_data_t {
   int_ rc;
   struct _fx_LR9Ast__id_t_data_t* tl;
   struct _fx_R9Ast__id_t hd;
} _fx_LR9Ast__id_t_data_t, *_fx_LR9Ast__id_t;

typedef struct _fx_T2R9Ast__id_ti {
   struct _fx_R9Ast__id_t t0;
   int_ t1;
} _fx_T2R9Ast__id_ti;

typedef struct _fx_R16Ast__val_flags_t {
   bool val_flag_arg;
   bool val_flag_mutable;
   bool val_flag_temp;
   bool val_flag_tempref;
   bool val_flag_private;
   bool val_flag_subarray;
   bool val_flag_instance;
   struct _fx_T2R9Ast__id_ti val_flag_method;
   int_ val_flag_ctor;
   struct _fx_LN12Ast__scope_t_data_t* val_flag_global;
} _fx_R16Ast__val_flags_t;

typedef struct _fx_T2R9Ast__id_tN14K_form__ktyp_t {
   struct _fx_R9Ast__id_t t0;
   struct _fx_N14K_form__ktyp_t_data_t* t1;
} _fx_T2R9Ast__id_tN14K_form__ktyp_t;

typedef struct _fx_LT2R9Ast__id_tN14K_form__ktyp_t_data_t {
   int_ rc;
   struct _fx_LT2R9Ast__id_tN14K_form__ktyp_t_data_t* tl;
   struct _fx_T2R9Ast__id_tN14K_form__ktyp_t hd;
} _fx_LT2R9Ast__id_tN14K_form__ktyp_t_data_t, *_fx_LT2R9Ast__id_tN14K_form__ktyp_t;

typedef struct _fx_R23K_form__kdefinterface_t {
   struct _fx_R9Ast__id_t ki_name;
   struct _fx_R9Ast__id_t ki_base;
   fx_str_t ki_cname;
   struct _fx_R9Ast__id_t ki_id;
   struct _fx_LT2R9Ast__id_tN14K_form__ktyp_t_data_t* ki_all_methods;
   struct _fx_LN12Ast__scope_t_data_t* ki_scope;
   struct _fx_R10Ast__loc_t ki_loc;
} _fx_R23K_form__kdefinterface_t;

typedef struct _fx_rR23K_form__kdefinterface_t_data_t {
   int_ rc;
   struct _fx_R23K_form__kdefinterface_t data;
} _fx_rR23K_form__kdefinterface_t_data_t, *_fx_rR23K_form__kdefinterface_t;

typedef struct _fx_R25K_form__kdefclosureinfo_t {
   struct _fx_R9Ast__id_t kci_arg;
   struct _fx_R9Ast__id_t kci_fcv_t;
   struct _fx_R9Ast__id_t kci_fp_typ;
   struct _fx_R9Ast__id_t kci_make_fp;
   struct _fx_R9Ast__id_t kci_wrap_f;
} _fx_R25K_form__kdefclosureinfo_t;

typedef struct _fx_R17K_form__kdeffun_t {
   struct _fx_R9Ast__id_t kf_name;
   fx_str_t kf_cname;
   struct _fx_LR9Ast__id_t_data_t* kf_params;
   struct _fx_N14K_form__ktyp_t_data_t* kf_rt;
   struct _fx_N14K_form__kexp_t_data_t* kf_body;
   struct _fx_R16Ast__fun_flags_t kf_flags;
   struct _fx_R25K_form__kdefclosureinfo_t kf_closure;
   struct _fx_LN12Ast__scope_t_data_t* kf_scope;
   struct _fx_R10Ast__loc_t kf_loc;
} _fx_R17K_form__kdeffun_t;

typedef struct _fx_rR17K_form__kdeffun_t_data_t {
   int_ rc;
   struct _fx_R17K_form__kdeffun_t data;
} _fx_rR17K_form__kdeffun_t_data_t, *_fx_rR17K_form__kdeffun_t;

typedef struct _fx_R17K_form__kdefexn_t {
   struct _fx_R9Ast__id_t ke_name;
   fx_str_t ke_cname;
   fx_str_t ke_base_cname;
   struct _fx_N14K_form__ktyp_t_data_t* ke_typ;
   bool ke_std;
   struct _fx_R9Ast__id_t ke_tag;
   struct _fx_R9Ast__id_t ke_make;
   struct _fx_LN12Ast__scope_t_data_t* ke_scope;
   struct _fx_R10Ast__loc_t ke_loc;
} _fx_R17K_form__kdefexn_t;

typedef struct _fx_rR17K_form__kdefexn_t_data_t {
   int_ rc;
   struct _fx_R17K_form__kdefexn_t data;
} _fx_rR17K_form__kdefexn_t_data_t, *_fx_rR17K_form__kdefexn_t;

typedef struct _fx_R17K_form__ktprops_t {
   bool ktp_complex;
   bool ktp_scalar;
   bool ktp_ptr;
   bool ktp_pass_by_ref;
   bool ktp_custom_free;
   bool ktp_custom_copy;
} _fx_R17K_form__ktprops_t;

typedef struct _fx_Nt6option1R17K_form__ktprops_t {
   int tag;
   union {
      struct _fx_R17K_form__ktprops_t Some;
   } u;
} _fx_Nt6option1R17K_form__ktprops_t;

typedef struct _fx_R16Ast__var_flags_t {
   int_ var_flag_class_from;
   bool var_flag_record;
   bool var_flag_recursive;
   bool var_flag_have_tag;
   bool var_flag_have_mutable;
   bool var_flag_opt;
   bool var_flag_instance;
} _fx_R16Ast__var_flags_t;

typedef struct _fx_LN14K_form__ktyp_t_data_t {
   int_ rc;
   struct _fx_LN14K_form__ktyp_t_data_t* tl;
   struct _fx_N14K_form__ktyp_t_data_t* hd;
} _fx_LN14K_form__ktyp_t_data_t, *_fx_LN14K_form__ktyp_t;

typedef struct _fx_T2R9Ast__id_tLR9Ast__id_t {
   struct _fx_R9Ast__id_t t0;
   struct _fx_LR9Ast__id_t_data_t* t1;
} _fx_T2R9Ast__id_tLR9Ast__id_t;

typedef struct _fx_LT2R9Ast__id_tLR9Ast__id_t_data_t {
   int_ rc;
   struct _fx_LT2R9Ast__id_tLR9Ast__id_t_data_t* tl;
   struct _fx_T2R9Ast__id_tLR9Ast__id_t hd;
} _fx_LT2R9Ast__id_tLR9Ast__id_t_data_t, *_fx_LT2R9Ast__id_tLR9Ast__id_t;

typedef struct _fx_R21K_form__kdefvariant_t {
   struct _fx_R9Ast__id_t kvar_name;
   fx_str_t kvar_cname;
   struct _fx_R9Ast__id_t kvar_proto;
   struct _fx_Nt6option1R17K_form__ktprops_t kvar_props;
   struct _fx_LN14K_form__ktyp_t_data_t* kvar_targs;
   struct _fx_LT2R9Ast__id_tN14K_form__ktyp_t_data_t* kvar_cases;
   struct _fx_LR9Ast__id_t_data_t* kvar_ctors;
   struct _fx_R16Ast__var_flags_t kvar_flags;
   struct _fx_LT2R9Ast__id_tLR9Ast__id_t_data_t* kvar_ifaces;
   struct _fx_LN12Ast__scope_t_data_t* kvar_scope;
   struct _fx_R10Ast__loc_t kvar_loc;
} _fx_R21K_form__kdefvariant_t;

typedef struct _fx_rR21K_form__kdefvariant_t_data_t {
   int_ rc;
   struct _fx_R21K_form__kdefvariant_t data;
} _fx_rR21K_form__kdefvariant_t_data_t, *_fx_rR21K_form__kdefvariant_t;

typedef struct _fx_R17K_form__kdeftyp_t {
   struct _fx_R9Ast__id_t kt_name;
   fx_str_t kt_cname;
   struct _fx_R9Ast__id_t kt_proto;
   struct _fx_Nt6option1R17K_form__ktprops_t kt_props;
   struct _fx_LN14K_form__ktyp_t_data_t* kt_targs;
   struct _fx_N14K_form__ktyp_t_data_t* kt_typ;
   struct _fx_LN12Ast__scope_t_data_t* kt_scope;
   struct _fx_R10Ast__loc_t kt_loc;
} _fx_R17K_form__kdeftyp_t;

typedef struct _fx_rR17K_form__kdeftyp_t_data_t {
   int_ rc;
   struct _fx_R17K_form__kdeftyp_t data;
} _fx_rR17K_form__kdeftyp_t_data_t, *_fx_rR17K_form__kdeftyp_t;

typedef struct _fx_R25K_form__kdefclosurevars_t {
   struct _fx_R9Ast__id_t kcv_name;
   fx_str_t kcv_cname;
   struct _fx_LT2R9Ast__id_tN14K_form__ktyp_t_data_t* kcv_freevars;
   struct _fx_LR9Ast__id_t_data_t* kcv_orig_freevars;
   struct _fx_LN12Ast__scope_t_data_t* kcv_scope;
   struct _fx_R10Ast__loc_t kcv_loc;
} _fx_R25K_form__kdefclosurevars_t;

typedef struct _fx_rR25K_form__kdefclosurevars_t_data_t {
   int_ rc;
   struct _fx_R25K_form__kdefclosurevars_t data;
} _fx_rR25K_form__kdefclosurevars_t_data_t, *_fx_rR25K_form__kdefclosurevars_t;

typedef struct _fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t {
   uint64_t hv;
   struct _fx_R9Ast__id_t key;
} _fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t;

typedef struct _fx_T6Rt24Hashset__hashset_entry_t1R9Ast__id_tiiiA1iA1Rt24Hashset__hashset_entry_t1R9Ast__id_t {
   struct _fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t t0;
   int_ t1;
   int_ t2;
   int_ t3;
   fx_arr_t t4;
   fx_arr_t t5;
} _fx_T6Rt24Hashset__hashset_entry_t1R9Ast__id_tiiiA1iA1Rt24Hashset__hashset_entry_t1R9Ast__id_t;

typedef struct _fx_Nt10Hashset__t1R9Ast__id_t_data_t {
   int_ rc;
   union {
      struct _fx_T6Rt24Hashset__hashset_entry_t1R9Ast__id_tiiiA1iA1Rt24Hashset__hashset_entry_t1R9Ast__id_t t;
   } u;
} _fx_Nt10Hashset__t1R9Ast__id_t_data_t, *_fx_Nt10Hashset__t1R9Ast__id_t;

typedef struct _fx_T2R10Ast__loc_tS {
   struct _fx_R10Ast__loc_t t0;
   fx_str_t t1;
} _fx_T2R10Ast__loc_tS;

typedef struct _fx_N12Ast__cmpop_t {
   int tag;
} _fx_N12Ast__cmpop_t;

typedef struct _fx_N13Ast__binary_t_data_t {
   int_ rc;
   int tag;
   union {
      struct _fx_N12Ast__cmpop_t OpCmp;
      struct _fx_N12Ast__cmpop_t OpDotCmp;
      struct _fx_N13Ast__binary_t_data_t* OpAugBinary;
   } u;
} _fx_N13Ast__binary_t_data_t, *_fx_N13Ast__binary_t;

typedef struct _fx_T2SR10Ast__loc_t {
   fx_str_t t0;
   struct _fx_R10Ast__loc_t t1;
} _fx_T2SR10Ast__loc_t;

typedef struct _fx_LT2SR10Ast__loc_t_data_t {
   int_ rc;
   struct _fx_LT2SR10Ast__loc_t_data_t* tl;
   struct _fx_T2SR10Ast__loc_t hd;
} _fx_LT2SR10Ast__loc_t_data_t, *_fx_LT2SR10Ast__loc_t;

typedef struct _fx_Li_data_t {
   int_ rc;
   struct _fx_Li_data_t* tl;
   int_ hd;
} _fx_Li_data_t, *_fx_Li;

typedef struct _fx_ri_data_t {
   int_ rc;
   int_ data;
} _fx_ri_data_t, *_fx_ri;

typedef struct _fx_Nt6option1N14K_form__kexp_t {
   int tag;
   union {
      struct _fx_N14K_form__kexp_t_data_t* Some;
   } u;
} _fx_Nt6option1N14K_form__kexp_t;

typedef struct _fx_T2il {
   int_ t0;
   int64_t t1;
} _fx_T2il;

typedef struct _fx_T2iq {
   int_ t0;
   uint64_t t1;
} _fx_T2iq;

typedef struct _fx_T2id {
   int_ t0;
   double t1;
} _fx_T2id;

typedef struct _fx_N14K_form__klit_t {
   int tag;
   union {
      int64_t KLitInt;
      struct _fx_T2il KLitSInt;
      struct _fx_T2iq KLitUInt;
      struct _fx_T2id KLitFloat;
      fx_str_t KLitString;
      char_ KLitChar;
      bool KLitBool;
      struct _fx_N14K_form__ktyp_t_data_t* KLitNil;
   } u;
} _fx_N14K_form__klit_t;

typedef struct _fx_N14K_form__atom_t {
   int tag;
   union {
      struct _fx_R9Ast__id_t AtomId;
      struct _fx_N14K_form__klit_t AtomLit;
   } u;
} _fx_N14K_form__atom_t;

typedef struct _fx_R22K_form__k_fold_callb_t {
   struct _fx_Nt6option1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t_data_t* kcb_fold_ktyp;
   struct _fx_Nt6option1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t_data_t* kcb_fold_kexp;
   struct _fx_Nt6option1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t_data_t* kcb_fold_atom;
} _fx_R22K_form__k_fold_callb_t;

typedef struct _fx_FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t {
   int (*fp)(struct _fx_N14K_form__atom_t*, struct _fx_R10Ast__loc_t*, struct _fx_R22K_form__k_fold_callb_t*, void*);
   fx_fcv_t* fcv;
} _fx_FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t;

typedef struct _fx_Nt6option1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t_data_t {
   int_ rc;
   union {
      struct _fx_FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t Some;
   } u;
} _fx_Nt6option1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t_data_t, *_fx_Nt6option1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t;

typedef struct _fx_FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t {
   int (*fp)(struct _fx_N14K_form__kexp_t_data_t*, struct _fx_R22K_form__k_fold_callb_t*, void*);
   fx_fcv_t* fcv;
} _fx_FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t;

typedef struct _fx_Nt6option1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t_data_t {
   int_ rc;
   union {
      struct _fx_FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t Some;
   } u;
} _fx_Nt6option1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t_data_t, *_fx_Nt6option1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t;

typedef struct _fx_FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t {
   int (*fp)(struct _fx_N14K_form__ktyp_t_data_t*, struct _fx_R10Ast__loc_t*, struct _fx_R22K_form__k_fold_callb_t*, void*);
   fx_fcv_t* fcv;
} _fx_FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t;

typedef struct _fx_Nt6option1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t_data_t {
   int_ rc;
   union {
      struct _fx_FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t Some;
   } u;
} _fx_Nt6option1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t_data_t, *_fx_Nt6option1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t;

typedef struct _fx_R17K_form__k_callb_t {
   struct _fx_Nt6option1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t_data_t* kcb_ktyp;
   struct _fx_Nt6option1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t_data_t* kcb_kexp;
   struct _fx_Nt6option1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t_data_t* kcb_atom;
} _fx_R17K_form__k_callb_t;

typedef struct _fx_FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t {
   int (*fp)(
      struct _fx_N14K_form__atom_t*, struct _fx_R10Ast__loc_t*, struct _fx_R17K_form__k_callb_t*, struct _fx_N14K_form__atom_t*,
         void*);
   fx_fcv_t* fcv;
} _fx_FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t;

typedef struct _fx_Nt6option1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t_data_t {
   int_ rc;
   union {
      struct _fx_FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t Some;
   } u;
} _fx_Nt6option1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t_data_t, *_fx_Nt6option1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t;

typedef struct _fx_FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t {
   int (*fp)(
      struct _fx_N14K_form__kexp_t_data_t*, struct _fx_R17K_form__k_callb_t*, struct _fx_N14K_form__kexp_t_data_t**, void*);
   fx_fcv_t* fcv;
} _fx_FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t;

typedef struct _fx_Nt6option1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t_data_t {
   int_ rc;
   union {
      struct _fx_FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t Some;
   } u;
} _fx_Nt6option1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t_data_t, *_fx_Nt6option1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t;

typedef struct _fx_FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t {
   int (*fp)(
      struct _fx_N14K_form__ktyp_t_data_t*, struct _fx_R10Ast__loc_t*, struct _fx_R17K_form__k_callb_t*,
         struct _fx_N14K_form__ktyp_t_data_t**, void*);
   fx_fcv_t* fcv;
} _fx_FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t;

typedef struct _fx_Nt6option1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t_data_t {
   int_ rc;
   union {
      struct _fx_FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t Some;
   } u;
} _fx_Nt6option1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t_data_t, *_fx_Nt6option1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t;

typedef struct _fx_Nt6option1N14K_form__atom_t {
   int tag;
   union {
      struct _fx_N14K_form__atom_t Some;
   } u;
} _fx_Nt6option1N14K_form__atom_t;

typedef struct _fx_LN14K_form__kexp_t_data_t {
   int_ rc;
   struct _fx_LN14K_form__kexp_t_data_t* tl;
   struct _fx_N14K_form__kexp_t_data_t* hd;
} _fx_LN14K_form__kexp_t_data_t, *_fx_LN14K_form__kexp_t;

typedef struct _fx_T2BN14K_form__atom_t {
   bool t0;
   struct _fx_N14K_form__atom_t t1;
} _fx_T2BN14K_form__atom_t;

typedef struct _fx_LT2BN14K_form__atom_t_data_t {
   int_ rc;
   struct _fx_LT2BN14K_form__atom_t_data_t* tl;
   struct _fx_T2BN14K_form__atom_t hd;
} _fx_LT2BN14K_form__atom_t_data_t, *_fx_LT2BN14K_form__atom_t;

typedef struct _fx_N12Ast__unary_t {
   int tag;
} _fx_N12Ast__unary_t;

typedef struct _fx_N12Ast__sctyp_t {
   int tag;
} _fx_N12Ast__sctyp_t;

typedef struct _fx_N13Ast__intrin_t {
   int tag;
   union {
      struct _fx_R9Ast__id_t IntrinMath;
      struct _fx_N12Ast__sctyp_t IntrinSaturate;
   } u;
} _fx_N13Ast__intrin_t;

typedef struct _fx_N15Ast__for_make_t {
   int tag;
} _fx_N15Ast__for_make_t;

typedef struct _fx_R16Ast__for_flags_t {
   bool for_flag_parallel;
   struct _fx_N15Ast__for_make_t for_flag_make;
   bool for_flag_unzip;
   bool for_flag_fold;
   bool for_flag_nested;
} _fx_R16Ast__for_flags_t;

typedef struct _fx_N13Ast__border_t {
   int tag;
} _fx_N13Ast__border_t;

typedef struct _fx_N18Ast__interpolate_t {
   int tag;
} _fx_N18Ast__interpolate_t;

typedef struct _fx_T2LN14K_form__ktyp_tN14K_form__ktyp_t {
   struct _fx_LN14K_form__ktyp_t_data_t* t0;
   struct _fx_N14K_form__ktyp_t_data_t* t1;
} _fx_T2LN14K_form__ktyp_tN14K_form__ktyp_t;

typedef struct _fx_T2R9Ast__id_tLT2R9Ast__id_tN14K_form__ktyp_t {
   struct _fx_R9Ast__id_t t0;
   struct _fx_LT2R9Ast__id_tN14K_form__ktyp_t_data_t* t1;
} _fx_T2R9Ast__id_tLT2R9Ast__id_tN14K_form__ktyp_t;

typedef struct _fx_T2iN14K_form__ktyp_t {
   int_ t0;
   struct _fx_N14K_form__ktyp_t_data_t* t1;
} _fx_T2iN14K_form__ktyp_t;

typedef struct _fx_N14K_form__ktyp_t_data_t {
   int_ rc;
   int tag;
   union {
      int_ KTypSInt;
      int_ KTypUInt;
      int_ KTypFloat;
      struct _fx_N14K_form__ktyp_t_data_t* KTypRawPointer;
      struct _fx_T2LN14K_form__ktyp_tN14K_form__ktyp_t KTypFun;
      struct _fx_LN14K_form__ktyp_t_data_t* KTypTuple;
      struct _fx_T2R9Ast__id_tLT2R9Ast__id_tN14K_form__ktyp_t KTypRecord;
      struct _fx_R9Ast__id_t KTypName;
      struct _fx_T2iN14K_form__ktyp_t KTypArray;
      struct _fx_N14K_form__ktyp_t_data_t* KTypVector;
      struct _fx_N14K_form__ktyp_t_data_t* KTypList;
      struct _fx_N14K_form__ktyp_t_data_t* KTypRef;
   } u;
} _fx_N14K_form__ktyp_t_data_t, *_fx_N14K_form__ktyp_t;

typedef struct _fx_Ta3N14K_form__atom_t {
   struct _fx_N14K_form__atom_t t0;
   struct _fx_N14K_form__atom_t t1;
   struct _fx_N14K_form__atom_t t2;
} _fx_Ta3N14K_form__atom_t;

typedef struct _fx_N13K_form__dom_t {
   int tag;
   union {
      struct _fx_N14K_form__atom_t DomainElem;
      struct _fx_N14K_form__atom_t DomainFast;
      struct _fx_Ta3N14K_form__atom_t DomainRange;
   } u;
} _fx_N13K_form__dom_t;

typedef struct _fx_T2Nt6option1N14K_form__atom_tR10Ast__loc_t {
   struct _fx_Nt6option1N14K_form__atom_t t0;
   struct _fx_R10Ast__loc_t t1;
} _fx_T2Nt6option1N14K_form__atom_tR10Ast__loc_t;

typedef struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t {
   struct _fx_N14K_form__ktyp_t_data_t* t0;
   struct _fx_R10Ast__loc_t t1;
} _fx_T2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_T2N14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t {
   struct _fx_N14K_form__atom_t t0;
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t t1;
} _fx_T2N14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_T4N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t {
   struct _fx_N13Ast__binary_t_data_t* t0;
   struct _fx_N14K_form__atom_t t1;
   struct _fx_N14K_form__atom_t t2;
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t t3;
} _fx_T4N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_T3N12Ast__unary_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t {
   struct _fx_N12Ast__unary_t t0;
   struct _fx_N14K_form__atom_t t1;
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t t2;
} _fx_T3N12Ast__unary_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_LN14K_form__atom_t_data_t {
   int_ rc;
   struct _fx_LN14K_form__atom_t_data_t* tl;
   struct _fx_N14K_form__atom_t hd;
} _fx_LN14K_form__atom_t_data_t, *_fx_LN14K_form__atom_t;

typedef struct _fx_T3N13Ast__intrin_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t {
   struct _fx_N13Ast__intrin_t t0;
   struct _fx_LN14K_form__atom_t_data_t* t1;
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t t2;
} _fx_T3N13Ast__intrin_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_T2R9Ast__id_tN14K_form__kexp_t {
   struct _fx_R9Ast__id_t t0;
   struct _fx_N14K_form__kexp_t_data_t* t1;
} _fx_T2R9Ast__id_tN14K_form__kexp_t;

typedef struct _fx_T2LN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t {
   struct _fx_LN14K_form__kexp_t_data_t* t0;
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t t1;
} _fx_T2LN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_T4N14K_form__kexp_tN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t {
   struct _fx_N14K_form__kexp_t_data_t* t0;
   struct _fx_N14K_form__kexp_t_data_t* t1;
   struct _fx_N14K_form__kexp_t_data_t* t2;
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t t3;
} _fx_T4N14K_form__kexp_tN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_T3R9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t {
   struct _fx_R9Ast__id_t t0;
   struct _fx_LN14K_form__atom_t_data_t* t1;
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t t2;
} _fx_T3R9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_T4R9Ast__id_tiLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t {
   struct _fx_R9Ast__id_t t0;
   int_ t1;
   struct _fx_LN14K_form__atom_t_data_t* t2;
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t t3;
} _fx_T4R9Ast__id_tiLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_T2LN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t {
   struct _fx_LN14K_form__atom_t_data_t* t0;
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t t1;
} _fx_T2LN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_T4R9Ast__id_tR9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t {
   struct _fx_R9Ast__id_t t0;
   struct _fx_R9Ast__id_t t1;
   struct _fx_LN14K_form__atom_t_data_t* t2;
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t t3;
} _fx_T4R9Ast__id_tR9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_LLT2BN14K_form__atom_t_data_t {
   int_ rc;
   struct _fx_LLT2BN14K_form__atom_t_data_t* tl;
   struct _fx_LT2BN14K_form__atom_t_data_t* hd;
} _fx_LLT2BN14K_form__atom_t_data_t, *_fx_LLT2BN14K_form__atom_t;

typedef struct _fx_T3BLLT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t {
   bool t0;
   struct _fx_LLT2BN14K_form__atom_t_data_t* t1;
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t t2;
} _fx_T3BLLT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_T2LT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t {
   struct _fx_LT2BN14K_form__atom_t_data_t* t0;
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t t1;
} _fx_T2LT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_LN13K_form__dom_t_data_t {
   int_ rc;
   struct _fx_LN13K_form__dom_t_data_t* tl;
   struct _fx_N13K_form__dom_t hd;
} _fx_LN13K_form__dom_t_data_t, *_fx_LN13K_form__dom_t;

typedef struct _fx_T5N14K_form__atom_tN13Ast__border_tN18Ast__interpolate_tLN13K_form__dom_tT2N14K_form__ktyp_tR10Ast__loc_t {
   struct _fx_N14K_form__atom_t t0;
   struct _fx_N13Ast__border_t t1;
   struct _fx_N18Ast__interpolate_t t2;
   struct _fx_LN13K_form__dom_t_data_t* t3;
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t t4;
} _fx_T5N14K_form__atom_tN13Ast__border_tN18Ast__interpolate_tLN13K_form__dom_tT2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_T3R9Ast__id_tiT2N14K_form__ktyp_tR10Ast__loc_t {
   struct _fx_R9Ast__id_t t0;
   int_ t1;
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t t2;
} _fx_T3R9Ast__id_tiT2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_T3R9Ast__id_tN14K_form__atom_tR10Ast__loc_t {
   struct _fx_R9Ast__id_t t0;
   struct _fx_N14K_form__atom_t t1;
   struct _fx_R10Ast__loc_t t2;
} _fx_T3R9Ast__id_tN14K_form__atom_tR10Ast__loc_t;

typedef struct _fx_T2LN14K_form__kexp_tN14K_form__kexp_t {
   struct _fx_LN14K_form__kexp_t_data_t* t0;
   struct _fx_N14K_form__kexp_t_data_t* t1;
} _fx_T2LN14K_form__kexp_tN14K_form__kexp_t;

typedef struct _fx_LT2LN14K_form__kexp_tN14K_form__kexp_t_data_t {
   int_ rc;
   struct _fx_LT2LN14K_form__kexp_tN14K_form__kexp_t_data_t* tl;
   struct _fx_T2LN14K_form__kexp_tN14K_form__kexp_t hd;
} _fx_LT2LN14K_form__kexp_tN14K_form__kexp_t_data_t, *_fx_LT2LN14K_form__kexp_tN14K_form__kexp_t;

typedef struct _fx_T2LT2LN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t {
   struct _fx_LT2LN14K_form__kexp_tN14K_form__kexp_t_data_t* t0;
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t t1;
} _fx_T2LT2LN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_T3N14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t {
   struct _fx_N14K_form__kexp_t_data_t* t0;
   struct _fx_N14K_form__kexp_t_data_t* t1;
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t t2;
} _fx_T3N14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_T3R9Ast__id_tBR10Ast__loc_t {
   struct _fx_R9Ast__id_t t0;
   bool t1;
   struct _fx_R10Ast__loc_t t2;
} _fx_T3R9Ast__id_tBR10Ast__loc_t;

typedef struct _fx_T3N14K_form__atom_tN14K_form__ktyp_tR10Ast__loc_t {
   struct _fx_N14K_form__atom_t t0;
   struct _fx_N14K_form__ktyp_t_data_t* t1;
   struct _fx_R10Ast__loc_t t2;
} _fx_T3N14K_form__atom_tN14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_T2R9Ast__id_tN13K_form__dom_t {
   struct _fx_R9Ast__id_t t0;
   struct _fx_N13K_form__dom_t t1;
} _fx_T2R9Ast__id_tN13K_form__dom_t;

typedef struct _fx_LT2R9Ast__id_tN13K_form__dom_t_data_t {
   int_ rc;
   struct _fx_LT2R9Ast__id_tN13K_form__dom_t_data_t* tl;
   struct _fx_T2R9Ast__id_tN13K_form__dom_t hd;
} _fx_LT2R9Ast__id_tN13K_form__dom_t_data_t, *_fx_LT2R9Ast__id_tN13K_form__dom_t;

typedef struct _fx_T3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t {
   struct _fx_N14K_form__kexp_t_data_t* t0;
   struct _fx_LT2R9Ast__id_tN13K_form__dom_t_data_t* t1;
   struct _fx_LR9Ast__id_t_data_t* t2;
} _fx_T3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t;

typedef struct _fx_LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t_data_t {
   int_ rc;
   struct _fx_LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t_data_t* tl;
   struct _fx_T3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t hd;
} _fx_LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t_data_t, *_fx_LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t;

typedef struct _fx_T4LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tT2N14K_form__ktyp_tR10Ast__loc_t {
   struct _fx_LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t_data_t* t0;
   struct _fx_N14K_form__kexp_t_data_t* t1;
   struct _fx_R16Ast__for_flags_t t2;
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t t3;
} _fx_T4LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tT2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_T5LT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tR10Ast__loc_t {
   struct _fx_LT2R9Ast__id_tN13K_form__dom_t_data_t* t0;
   struct _fx_LR9Ast__id_t_data_t* t1;
   struct _fx_N14K_form__kexp_t_data_t* t2;
   struct _fx_R16Ast__for_flags_t t3;
   struct _fx_R10Ast__loc_t t4;
} _fx_T5LT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tR10Ast__loc_t;

typedef struct _fx_T3N14K_form__kexp_tN14K_form__kexp_tR10Ast__loc_t {
   struct _fx_N14K_form__kexp_t_data_t* t0;
   struct _fx_N14K_form__kexp_t_data_t* t1;
   struct _fx_R10Ast__loc_t t2;
} _fx_T3N14K_form__kexp_tN14K_form__kexp_tR10Ast__loc_t;

typedef struct _fx_T2ST2N14K_form__ktyp_tR10Ast__loc_t {
   fx_str_t t0;
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t t1;
} _fx_T2ST2N14K_form__ktyp_tR10Ast__loc_t;

typedef struct _fx_T3R9Ast__id_tN14K_form__kexp_tR10Ast__loc_t {
   struct _fx_R9Ast__id_t t0;
   struct _fx_N14K_form__kexp_t_data_t* t1;
   struct _fx_R10Ast__loc_t t2;
} _fx_T3R9Ast__id_tN14K_form__kexp_tR10Ast__loc_t;

typedef struct _fx_N14K_form__kexp_t_data_t {
   int_ rc;
   int tag;
   union {
      struct _fx_R10Ast__loc_t KExpNop;
      struct _fx_R10Ast__loc_t KExpBreak;
      struct _fx_R10Ast__loc_t KExpContinue;
      struct _fx_T2Nt6option1N14K_form__atom_tR10Ast__loc_t KExpReturn;
      struct _fx_T2N14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t KExpAtom;
      struct _fx_T4N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t KExpBinary;
      struct _fx_T3N12Ast__unary_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t KExpUnary;
      struct _fx_T3N13Ast__intrin_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t KExpIntrin;
      struct _fx_T2R9Ast__id_tN14K_form__kexp_t KExpSync;
      struct _fx_T2LN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t KExpSeq;
      struct _fx_T4N14K_form__kexp_tN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t KExpIf;
      struct _fx_T3R9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t KExpCall;
      struct _fx_T4R9Ast__id_tiLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t KExpICall;
      struct _fx_T2LN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t KExpMkTuple;
      struct _fx_T2LN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t KExpMkRecord;
      struct _fx_T4R9Ast__id_tR9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t KExpMkClosure;
      struct _fx_T3BLLT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t KExpMkArray;
      struct _fx_T2LT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t KExpMkVector;
      struct _fx_T5N14K_form__atom_tN13Ast__border_tN18Ast__interpolate_tLN13K_form__dom_tT2N14K_form__ktyp_tR10Ast__loc_t
         KExpAt;
      struct _fx_T3R9Ast__id_tiT2N14K_form__ktyp_tR10Ast__loc_t KExpMem;
      struct _fx_T3R9Ast__id_tN14K_form__atom_tR10Ast__loc_t KExpAssign;
      struct _fx_T2LT2LN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t KExpMatch;
      struct _fx_T3N14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t KExpTryCatch;
      struct _fx_T3R9Ast__id_tBR10Ast__loc_t KExpThrow;
      struct _fx_T3N14K_form__atom_tN14K_form__ktyp_tR10Ast__loc_t KExpCast;
      struct _fx_T4LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tT2N14K_form__ktyp_tR10Ast__loc_t
         KExpMap;
      struct _fx_T5LT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tR10Ast__loc_t KExpFor;
      struct _fx_T3N14K_form__kexp_tN14K_form__kexp_tR10Ast__loc_t KExpWhile;
      struct _fx_T3N14K_form__kexp_tN14K_form__kexp_tR10Ast__loc_t KExpDoWhile;
      struct _fx_T2ST2N14K_form__ktyp_tR10Ast__loc_t KExpCCode;
      struct _fx_T3R9Ast__id_tN14K_form__kexp_tR10Ast__loc_t KDefVal;
      struct _fx_rR17K_form__kdeffun_t_data_t* KDefFun;
      struct _fx_rR17K_form__kdefexn_t_data_t* KDefExn;
      struct _fx_rR21K_form__kdefvariant_t_data_t* KDefVariant;
      struct _fx_rR23K_form__kdefinterface_t_data_t* KDefInterface;
      struct _fx_rR17K_form__kdeftyp_t_data_t* KDefTyp;
      struct _fx_rR25K_form__kdefclosurevars_t_data_t* KDefClosureVars;
   } u;
} _fx_N14K_form__kexp_t_data_t, *_fx_N14K_form__kexp_t;

typedef struct _fx_R14Ast__pragmas_t {
   bool pragma_cpp;
   struct _fx_LT2SR10Ast__loc_t_data_t* pragma_clibs;
} _fx_R14Ast__pragmas_t;

typedef struct _fx_R17K_form__kmodule_t {
   struct _fx_R9Ast__id_t km_name;
   int_ km_idx;
   int_ km_toposort_idx;
   fx_str_t km_cname;
   struct _fx_LN14K_form__kexp_t_data_t* km_top;
   struct _fx_Li_data_t* km_deps;
   bool km_skip;
   bool km_main;
   struct _fx_R14Ast__pragmas_t km_pragmas;
} _fx_R17K_form__kmodule_t;

typedef struct _fx_LR17K_form__kmodule_t_data_t {
   int_ rc;
   struct _fx_LR17K_form__kmodule_t_data_t* tl;
   struct _fx_R17K_form__kmodule_t hd;
} _fx_LR17K_form__kmodule_t_data_t, *_fx_LR17K_form__kmodule_t;

typedef struct _fx_rLN14K_form__kexp_t_data_t {
   int_ rc;
   struct _fx_LN14K_form__kexp_t_data_t* data;
} _fx_rLN14K_form__kexp_t_data_t, *_fx_rLN14K_form__kexp_t;

typedef struct _fx_rNt10Hashset__t1R9Ast__id_t_data_t {
   int_ rc;
   struct _fx_Nt10Hashset__t1R9Ast__id_t_data_t* data;
} _fx_rNt10Hashset__t1R9Ast__id_t_data_t, *_fx_rNt10Hashset__t1R9Ast__id_t;

typedef struct _fx_R32K_optim_matop__matrix_projection {
   struct _fx_R9Ast__id_t original_matrix;
   struct _fx_Ta3N14K_form__atom_t row_range;
   struct _fx_Ta3N14K_form__atom_t col_range;
   bool is_transposed;
} _fx_R32K_optim_matop__matrix_projection;

typedef struct _fx_Nt6option1R32K_optim_matop__matrix_projection {
   int tag;
   union {
      struct _fx_R32K_optim_matop__matrix_projection Some;
   } u;
} _fx_Nt6option1R32K_optim_matop__matrix_projection;

typedef struct _fx_Nt6option1R9Ast__id_t {
   int tag;
   union {
      struct _fx_R9Ast__id_t Some;
   } u;
} _fx_Nt6option1R9Ast__id_t;

typedef struct _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection {
   uint64_t hv;
   struct _fx_R9Ast__id_t key;
   struct _fx_R32K_optim_matop__matrix_projection data;
} _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection;

typedef struct _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t {
   uint64_t hv;
   struct _fx_R9Ast__id_t key;
   struct _fx_R9Ast__id_t data;
} _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t;

typedef struct _fx_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projectioniiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection {
   struct _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection t0;
   int_ t1;
   int_ t2;
   int_ t3;
   fx_arr_t t4;
   fx_arr_t t5;
} _fx_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projectioniiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection;

typedef struct _fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t {
   int_ rc;
   union {
      struct _fx_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projectioniiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection
         t;
   } u;
} _fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t, *_fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection;

typedef struct _fx_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_tiiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t {
   struct _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t t0;
   int_ t1;
   int_ t2;
   int_ t3;
   fx_arr_t t4;
   fx_arr_t t5;
} _fx_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_tiiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t;

typedef struct _fx_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t {
   int_ rc;
   union {
      struct _fx_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_tiiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t t;
   } u;
} _fx_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t, *_fx_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t;

typedef struct _fx_Ta2R32K_optim_matop__matrix_projection {
   struct _fx_R32K_optim_matop__matrix_projection t0;
   struct _fx_R32K_optim_matop__matrix_projection t1;
} _fx_Ta2R32K_optim_matop__matrix_projection;

typedef struct _fx_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t {
   int_ rc;
   struct _fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t* data;
} _fx_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t, *_fx_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection;

typedef struct _fx_T2R32K_optim_matop__matrix_projectionLN14K_form__kexp_t {
   struct _fx_R32K_optim_matop__matrix_projection t0;
   struct _fx_LN14K_form__kexp_t_data_t* t1;
} _fx_T2R32K_optim_matop__matrix_projectionLN14K_form__kexp_t;

typedef struct _fx_Ta2Ta3N14K_form__atom_t {
   struct _fx_Ta3N14K_form__atom_t t0;
   struct _fx_Ta3N14K_form__atom_t t1;
} _fx_Ta2Ta3N14K_form__atom_t;

typedef struct _fx_T2N14K_form__atom_tLN14K_form__kexp_t {
   struct _fx_N14K_form__atom_t t0;
   struct _fx_LN14K_form__kexp_t_data_t* t1;
} _fx_T2N14K_form__atom_tLN14K_form__kexp_t;

typedef struct _fx_rNt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t {
   int_ rc;
   struct _fx_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t* data;
} _fx_rNt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t, *_fx_rNt10Hashmap__t2R9Ast__id_tR9Ast__id_t;

typedef struct {
   int_ rc;
   int_ data;
} _fx_E4Exit_data_t;

typedef struct {
   int_ rc;
   fx_str_t data;
} _fx_E4Fail_data_t;

typedef struct {
   int_ rc;
   struct _fx_T2Ta2iS data;
} _fx_E22LexerUtils__LexerError_data_t;

typedef struct {
   int_ rc;
   struct _fx_T2R10Ast__loc_tS data;
} _fx_E17Ast__CompileError_data_t;

typedef struct {
   int_ rc;
   struct _fx_T2R10Ast__loc_tS data;
} _fx_E18Parser__ParseError_data_t;

static void _fx_free_T2Ta2iS(struct _fx_T2Ta2iS* dst)
{
   fx_free_str(&dst->t1);
}

static void _fx_copy_T2Ta2iS(struct _fx_T2Ta2iS* src, struct _fx_T2Ta2iS* dst)
{
   dst->t0 = src->t0;
   fx_copy_str(&src->t1, &dst->t1);
}

static void _fx_make_T2Ta2iS(struct _fx_Ta2i* t0, fx_str_t* t1, struct _fx_T2Ta2iS* fx_result)
{
   fx_result->t0 = *t0;
   fx_copy_str(t1, &fx_result->t1);
}

static int _fx_cons_LN12Ast__scope_t(
   struct _fx_N12Ast__scope_t* hd,
   struct _fx_LN12Ast__scope_t_data_t* tl,
   bool addref_tl,
   struct _fx_LN12Ast__scope_t_data_t** fx_result)
{
   FX_MAKE_LIST_IMPL(_fx_LN12Ast__scope_t, FX_COPY_SIMPLE_BY_PTR);
}

static int _fx_cons_LR9Ast__id_t(
   struct _fx_R9Ast__id_t* hd,
   struct _fx_LR9Ast__id_t_data_t* tl,
   bool addref_tl,
   struct _fx_LR9Ast__id_t_data_t** fx_result)
{
   FX_MAKE_LIST_IMPL(_fx_LR9Ast__id_t, FX_COPY_SIMPLE_BY_PTR);
}

static void _fx_free_R16Ast__val_flags_t(struct _fx_R16Ast__val_flags_t* dst)
{
   fx_free_list_simple(&dst->val_flag_global);
}

static void _fx_copy_R16Ast__val_flags_t(struct _fx_R16Ast__val_flags_t* src, struct _fx_R16Ast__val_flags_t* dst)
{
   dst->val_flag_arg = src->val_flag_arg;
   dst->val_flag_mutable = src->val_flag_mutable;
   dst->val_flag_temp = src->val_flag_temp;
   dst->val_flag_tempref = src->val_flag_tempref;
   dst->val_flag_private = src->val_flag_private;
   dst->val_flag_subarray = src->val_flag_subarray;
   dst->val_flag_instance = src->val_flag_instance;
   dst->val_flag_method = src->val_flag_method;
   dst->val_flag_ctor = src->val_flag_ctor;
   FX_COPY_PTR(src->val_flag_global, &dst->val_flag_global);
}

static void _fx_make_R16Ast__val_flags_t(
   bool r_val_flag_arg,
   bool r_val_flag_mutable,
   bool r_val_flag_temp,
   bool r_val_flag_tempref,
   bool r_val_flag_private,
   bool r_val_flag_subarray,
   bool r_val_flag_instance,
   struct _fx_T2R9Ast__id_ti* r_val_flag_method,
   int_ r_val_flag_ctor,
   struct _fx_LN12Ast__scope_t_data_t* r_val_flag_global,
   struct _fx_R16Ast__val_flags_t* fx_result)
{
   fx_result->val_flag_arg = r_val_flag_arg;
   fx_result->val_flag_mutable = r_val_flag_mutable;
   fx_result->val_flag_temp = r_val_flag_temp;
   fx_result->val_flag_tempref = r_val_flag_tempref;
   fx_result->val_flag_private = r_val_flag_private;
   fx_result->val_flag_subarray = r_val_flag_subarray;
   fx_result->val_flag_instance = r_val_flag_instance;
   fx_result->val_flag_method = *r_val_flag_method;
   fx_result->val_flag_ctor = r_val_flag_ctor;
   FX_COPY_PTR(r_val_flag_global, &fx_result->val_flag_global);
}

static void _fx_free_T2R9Ast__id_tN14K_form__ktyp_t(struct _fx_T2R9Ast__id_tN14K_form__ktyp_t* dst)
{
   _fx_free_N14K_form__ktyp_t(&dst->t1);
}

static void _fx_copy_T2R9Ast__id_tN14K_form__ktyp_t(
   struct _fx_T2R9Ast__id_tN14K_form__ktyp_t* src,
   struct _fx_T2R9Ast__id_tN14K_form__ktyp_t* dst)
{
   dst->t0 = src->t0;
   FX_COPY_PTR(src->t1, &dst->t1);
}

static void _fx_make_T2R9Ast__id_tN14K_form__ktyp_t(
   struct _fx_R9Ast__id_t* t0,
   struct _fx_N14K_form__ktyp_t_data_t* t1,
   struct _fx_T2R9Ast__id_tN14K_form__ktyp_t* fx_result)
{
   fx_result->t0 = *t0;
   FX_COPY_PTR(t1, &fx_result->t1);
}

static void _fx_free_LT2R9Ast__id_tN14K_form__ktyp_t(struct _fx_LT2R9Ast__id_tN14K_form__ktyp_t_data_t** dst)
{
   FX_FREE_LIST_IMPL(_fx_LT2R9Ast__id_tN14K_form__ktyp_t, _fx_free_T2R9Ast__id_tN14K_form__ktyp_t);
}

static int _fx_cons_LT2R9Ast__id_tN14K_form__ktyp_t(
   struct _fx_T2R9Ast__id_tN14K_form__ktyp_t* hd,
   struct _fx_LT2R9Ast__id_tN14K_form__ktyp_t_data_t* tl,
   bool addref_tl,
   struct _fx_LT2R9Ast__id_tN14K_form__ktyp_t_data_t** fx_result)
{
   FX_MAKE_LIST_IMPL(_fx_LT2R9Ast__id_tN14K_form__ktyp_t, _fx_copy_T2R9Ast__id_tN14K_form__ktyp_t);
}

static void _fx_free_R23K_form__kdefinterface_t(struct _fx_R23K_form__kdefinterface_t* dst)
{
   fx_free_str(&dst->ki_cname);
   _fx_free_LT2R9Ast__id_tN14K_form__ktyp_t(&dst->ki_all_methods);
   fx_free_list_simple(&dst->ki_scope);
}

static void _fx_copy_R23K_form__kdefinterface_t(
   struct _fx_R23K_form__kdefinterface_t* src,
   struct _fx_R23K_form__kdefinterface_t* dst)
{
   dst->ki_name = src->ki_name;
   dst->ki_base = src->ki_base;
   fx_copy_str(&src->ki_cname, &dst->ki_cname);
   dst->ki_id = src->ki_id;
   FX_COPY_PTR(src->ki_all_methods, &dst->ki_all_methods);
   FX_COPY_PTR(src->ki_scope, &dst->ki_scope);
   dst->ki_loc = src->ki_loc;
}

static void _fx_make_R23K_form__kdefinterface_t(
   struct _fx_R9Ast__id_t* r_ki_name,
   struct _fx_R9Ast__id_t* r_ki_base,
   fx_str_t* r_ki_cname,
   struct _fx_R9Ast__id_t* r_ki_id,
   struct _fx_LT2R9Ast__id_tN14K_form__ktyp_t_data_t* r_ki_all_methods,
   struct _fx_LN12Ast__scope_t_data_t* r_ki_scope,
   struct _fx_R10Ast__loc_t* r_ki_loc,
   struct _fx_R23K_form__kdefinterface_t* fx_result)
{
   fx_result->ki_name = *r_ki_name;
   fx_result->ki_base = *r_ki_base;
   fx_copy_str(r_ki_cname, &fx_result->ki_cname);
   fx_result->ki_id = *r_ki_id;
   FX_COPY_PTR(r_ki_all_methods, &fx_result->ki_all_methods);
   FX_COPY_PTR(r_ki_scope, &fx_result->ki_scope);
   fx_result->ki_loc = *r_ki_loc;
}

static void _fx_free_rR23K_form__kdefinterface_t(struct _fx_rR23K_form__kdefinterface_t_data_t** dst)
{
   FX_FREE_REF_IMPL(_fx_rR23K_form__kdefinterface_t, _fx_free_R23K_form__kdefinterface_t);
}

static int _fx_make_rR23K_form__kdefinterface_t(
   struct _fx_R23K_form__kdefinterface_t* arg,
   struct _fx_rR23K_form__kdefinterface_t_data_t** fx_result)
{
   FX_MAKE_REF_IMPL(_fx_rR23K_form__kdefinterface_t, _fx_copy_R23K_form__kdefinterface_t);
}

static void _fx_free_R17K_form__kdeffun_t(struct _fx_R17K_form__kdeffun_t* dst)
{
   fx_free_str(&dst->kf_cname);
   fx_free_list_simple(&dst->kf_params);
   _fx_free_N14K_form__ktyp_t(&dst->kf_rt);
   _fx_free_N14K_form__kexp_t(&dst->kf_body);
   fx_free_list_simple(&dst->kf_scope);
}

static void _fx_copy_R17K_form__kdeffun_t(struct _fx_R17K_form__kdeffun_t* src, struct _fx_R17K_form__kdeffun_t* dst)
{
   dst->kf_name = src->kf_name;
   fx_copy_str(&src->kf_cname, &dst->kf_cname);
   FX_COPY_PTR(src->kf_params, &dst->kf_params);
   FX_COPY_PTR(src->kf_rt, &dst->kf_rt);
   FX_COPY_PTR(src->kf_body, &dst->kf_body);
   dst->kf_flags = src->kf_flags;
   dst->kf_closure = src->kf_closure;
   FX_COPY_PTR(src->kf_scope, &dst->kf_scope);
   dst->kf_loc = src->kf_loc;
}

static void _fx_make_R17K_form__kdeffun_t(
   struct _fx_R9Ast__id_t* r_kf_name,
   fx_str_t* r_kf_cname,
   struct _fx_LR9Ast__id_t_data_t* r_kf_params,
   struct _fx_N14K_form__ktyp_t_data_t* r_kf_rt,
   struct _fx_N14K_form__kexp_t_data_t* r_kf_body,
   struct _fx_R16Ast__fun_flags_t* r_kf_flags,
   struct _fx_R25K_form__kdefclosureinfo_t* r_kf_closure,
   struct _fx_LN12Ast__scope_t_data_t* r_kf_scope,
   struct _fx_R10Ast__loc_t* r_kf_loc,
   struct _fx_R17K_form__kdeffun_t* fx_result)
{
   fx_result->kf_name = *r_kf_name;
   fx_copy_str(r_kf_cname, &fx_result->kf_cname);
   FX_COPY_PTR(r_kf_params, &fx_result->kf_params);
   FX_COPY_PTR(r_kf_rt, &fx_result->kf_rt);
   FX_COPY_PTR(r_kf_body, &fx_result->kf_body);
   fx_result->kf_flags = *r_kf_flags;
   fx_result->kf_closure = *r_kf_closure;
   FX_COPY_PTR(r_kf_scope, &fx_result->kf_scope);
   fx_result->kf_loc = *r_kf_loc;
}

static void _fx_free_rR17K_form__kdeffun_t(struct _fx_rR17K_form__kdeffun_t_data_t** dst)
{
   FX_FREE_REF_IMPL(_fx_rR17K_form__kdeffun_t, _fx_free_R17K_form__kdeffun_t);
}

static int _fx_make_rR17K_form__kdeffun_t(
   struct _fx_R17K_form__kdeffun_t* arg,
   struct _fx_rR17K_form__kdeffun_t_data_t** fx_result)
{
   FX_MAKE_REF_IMPL(_fx_rR17K_form__kdeffun_t, _fx_copy_R17K_form__kdeffun_t);
}

static void _fx_free_R17K_form__kdefexn_t(struct _fx_R17K_form__kdefexn_t* dst)
{
   fx_free_str(&dst->ke_cname);
   fx_free_str(&dst->ke_base_cname);
   _fx_free_N14K_form__ktyp_t(&dst->ke_typ);
   fx_free_list_simple(&dst->ke_scope);
}

static void _fx_copy_R17K_form__kdefexn_t(struct _fx_R17K_form__kdefexn_t* src, struct _fx_R17K_form__kdefexn_t* dst)
{
   dst->ke_name = src->ke_name;
   fx_copy_str(&src->ke_cname, &dst->ke_cname);
   fx_copy_str(&src->ke_base_cname, &dst->ke_base_cname);
   FX_COPY_PTR(src->ke_typ, &dst->ke_typ);
   dst->ke_std = src->ke_std;
   dst->ke_tag = src->ke_tag;
   dst->ke_make = src->ke_make;
   FX_COPY_PTR(src->ke_scope, &dst->ke_scope);
   dst->ke_loc = src->ke_loc;
}

static void _fx_make_R17K_form__kdefexn_t(
   struct _fx_R9Ast__id_t* r_ke_name,
   fx_str_t* r_ke_cname,
   fx_str_t* r_ke_base_cname,
   struct _fx_N14K_form__ktyp_t_data_t* r_ke_typ,
   bool r_ke_std,
   struct _fx_R9Ast__id_t* r_ke_tag,
   struct _fx_R9Ast__id_t* r_ke_make,
   struct _fx_LN12Ast__scope_t_data_t* r_ke_scope,
   struct _fx_R10Ast__loc_t* r_ke_loc,
   struct _fx_R17K_form__kdefexn_t* fx_result)
{
   fx_result->ke_name = *r_ke_name;
   fx_copy_str(r_ke_cname, &fx_result->ke_cname);
   fx_copy_str(r_ke_base_cname, &fx_result->ke_base_cname);
   FX_COPY_PTR(r_ke_typ, &fx_result->ke_typ);
   fx_result->ke_std = r_ke_std;
   fx_result->ke_tag = *r_ke_tag;
   fx_result->ke_make = *r_ke_make;
   FX_COPY_PTR(r_ke_scope, &fx_result->ke_scope);
   fx_result->ke_loc = *r_ke_loc;
}

static void _fx_free_rR17K_form__kdefexn_t(struct _fx_rR17K_form__kdefexn_t_data_t** dst)
{
   FX_FREE_REF_IMPL(_fx_rR17K_form__kdefexn_t, _fx_free_R17K_form__kdefexn_t);
}

static int _fx_make_rR17K_form__kdefexn_t(
   struct _fx_R17K_form__kdefexn_t* arg,
   struct _fx_rR17K_form__kdefexn_t_data_t** fx_result)
{
   FX_MAKE_REF_IMPL(_fx_rR17K_form__kdefexn_t, _fx_copy_R17K_form__kdefexn_t);
}

static void _fx_free_LN14K_form__ktyp_t(struct _fx_LN14K_form__ktyp_t_data_t** dst)
{
   FX_FREE_LIST_IMPL(_fx_LN14K_form__ktyp_t, _fx_free_N14K_form__ktyp_t);
}

static int _fx_cons_LN14K_form__ktyp_t(
   struct _fx_N14K_form__ktyp_t_data_t* hd,
   struct _fx_LN14K_form__ktyp_t_data_t* tl,
   bool addref_tl,
   struct _fx_LN14K_form__ktyp_t_data_t** fx_result)
{
   FX_MAKE_LIST_IMPL(_fx_LN14K_form__ktyp_t, FX_COPY_PTR);
}

static void _fx_free_T2R9Ast__id_tLR9Ast__id_t(struct _fx_T2R9Ast__id_tLR9Ast__id_t* dst)
{
   fx_free_list_simple(&dst->t1);
}

static void _fx_copy_T2R9Ast__id_tLR9Ast__id_t(
   struct _fx_T2R9Ast__id_tLR9Ast__id_t* src,
   struct _fx_T2R9Ast__id_tLR9Ast__id_t* dst)
{
   dst->t0 = src->t0;
   FX_COPY_PTR(src->t1, &dst->t1);
}

static void _fx_make_T2R9Ast__id_tLR9Ast__id_t(
   struct _fx_R9Ast__id_t* t0,
   struct _fx_LR9Ast__id_t_data_t* t1,
   struct _fx_T2R9Ast__id_tLR9Ast__id_t* fx_result)
{
   fx_result->t0 = *t0;
   FX_COPY_PTR(t1, &fx_result->t1);
}

static void _fx_free_LT2R9Ast__id_tLR9Ast__id_t(struct _fx_LT2R9Ast__id_tLR9Ast__id_t_data_t** dst)
{
   FX_FREE_LIST_IMPL(_fx_LT2R9Ast__id_tLR9Ast__id_t, _fx_free_T2R9Ast__id_tLR9Ast__id_t);
}

static int _fx_cons_LT2R9Ast__id_tLR9Ast__id_t(
   struct _fx_T2R9Ast__id_tLR9Ast__id_t* hd,
   struct _fx_LT2R9Ast__id_tLR9Ast__id_t_data_t* tl,
   bool addref_tl,
   struct _fx_LT2R9Ast__id_tLR9Ast__id_t_data_t** fx_result)
{
   FX_MAKE_LIST_IMPL(_fx_LT2R9Ast__id_tLR9Ast__id_t, _fx_copy_T2R9Ast__id_tLR9Ast__id_t);
}

static void _fx_free_R21K_form__kdefvariant_t(struct _fx_R21K_form__kdefvariant_t* dst)
{
   fx_free_str(&dst->kvar_cname);
   _fx_free_LN14K_form__ktyp_t(&dst->kvar_targs);
   _fx_free_LT2R9Ast__id_tN14K_form__ktyp_t(&dst->kvar_cases);
   fx_free_list_simple(&dst->kvar_ctors);
   _fx_free_LT2R9Ast__id_tLR9Ast__id_t(&dst->kvar_ifaces);
   fx_free_list_simple(&dst->kvar_scope);
}

static void _fx_copy_R21K_form__kdefvariant_t(
   struct _fx_R21K_form__kdefvariant_t* src,
   struct _fx_R21K_form__kdefvariant_t* dst)
{
   dst->kvar_name = src->kvar_name;
   fx_copy_str(&src->kvar_cname, &dst->kvar_cname);
   dst->kvar_proto = src->kvar_proto;
   dst->kvar_props = src->kvar_props;
   FX_COPY_PTR(src->kvar_targs, &dst->kvar_targs);
   FX_COPY_PTR(src->kvar_cases, &dst->kvar_cases);
   FX_COPY_PTR(src->kvar_ctors, &dst->kvar_ctors);
   dst->kvar_flags = src->kvar_flags;
   FX_COPY_PTR(src->kvar_ifaces, &dst->kvar_ifaces);
   FX_COPY_PTR(src->kvar_scope, &dst->kvar_scope);
   dst->kvar_loc = src->kvar_loc;
}

static void _fx_make_R21K_form__kdefvariant_t(
   struct _fx_R9Ast__id_t* r_kvar_name,
   fx_str_t* r_kvar_cname,
   struct _fx_R9Ast__id_t* r_kvar_proto,
   struct _fx_Nt6option1R17K_form__ktprops_t* r_kvar_props,
   struct _fx_LN14K_form__ktyp_t_data_t* r_kvar_targs,
   struct _fx_LT2R9Ast__id_tN14K_form__ktyp_t_data_t* r_kvar_cases,
   struct _fx_LR9Ast__id_t_data_t* r_kvar_ctors,
   struct _fx_R16Ast__var_flags_t* r_kvar_flags,
   struct _fx_LT2R9Ast__id_tLR9Ast__id_t_data_t* r_kvar_ifaces,
   struct _fx_LN12Ast__scope_t_data_t* r_kvar_scope,
   struct _fx_R10Ast__loc_t* r_kvar_loc,
   struct _fx_R21K_form__kdefvariant_t* fx_result)
{
   fx_result->kvar_name = *r_kvar_name;
   fx_copy_str(r_kvar_cname, &fx_result->kvar_cname);
   fx_result->kvar_proto = *r_kvar_proto;
   fx_result->kvar_props = *r_kvar_props;
   FX_COPY_PTR(r_kvar_targs, &fx_result->kvar_targs);
   FX_COPY_PTR(r_kvar_cases, &fx_result->kvar_cases);
   FX_COPY_PTR(r_kvar_ctors, &fx_result->kvar_ctors);
   fx_result->kvar_flags = *r_kvar_flags;
   FX_COPY_PTR(r_kvar_ifaces, &fx_result->kvar_ifaces);
   FX_COPY_PTR(r_kvar_scope, &fx_result->kvar_scope);
   fx_result->kvar_loc = *r_kvar_loc;
}

static void _fx_free_rR21K_form__kdefvariant_t(struct _fx_rR21K_form__kdefvariant_t_data_t** dst)
{
   FX_FREE_REF_IMPL(_fx_rR21K_form__kdefvariant_t, _fx_free_R21K_form__kdefvariant_t);
}

static int _fx_make_rR21K_form__kdefvariant_t(
   struct _fx_R21K_form__kdefvariant_t* arg,
   struct _fx_rR21K_form__kdefvariant_t_data_t** fx_result)
{
   FX_MAKE_REF_IMPL(_fx_rR21K_form__kdefvariant_t, _fx_copy_R21K_form__kdefvariant_t);
}

static void _fx_free_R17K_form__kdeftyp_t(struct _fx_R17K_form__kdeftyp_t* dst)
{
   fx_free_str(&dst->kt_cname);
   _fx_free_LN14K_form__ktyp_t(&dst->kt_targs);
   _fx_free_N14K_form__ktyp_t(&dst->kt_typ);
   fx_free_list_simple(&dst->kt_scope);
}

static void _fx_copy_R17K_form__kdeftyp_t(struct _fx_R17K_form__kdeftyp_t* src, struct _fx_R17K_form__kdeftyp_t* dst)
{
   dst->kt_name = src->kt_name;
   fx_copy_str(&src->kt_cname, &dst->kt_cname);
   dst->kt_proto = src->kt_proto;
   dst->kt_props = src->kt_props;
   FX_COPY_PTR(src->kt_targs, &dst->kt_targs);
   FX_COPY_PTR(src->kt_typ, &dst->kt_typ);
   FX_COPY_PTR(src->kt_scope, &dst->kt_scope);
   dst->kt_loc = src->kt_loc;
}

static void _fx_make_R17K_form__kdeftyp_t(
   struct _fx_R9Ast__id_t* r_kt_name,
   fx_str_t* r_kt_cname,
   struct _fx_R9Ast__id_t* r_kt_proto,
   struct _fx_Nt6option1R17K_form__ktprops_t* r_kt_props,
   struct _fx_LN14K_form__ktyp_t_data_t* r_kt_targs,
   struct _fx_N14K_form__ktyp_t_data_t* r_kt_typ,
   struct _fx_LN12Ast__scope_t_data_t* r_kt_scope,
   struct _fx_R10Ast__loc_t* r_kt_loc,
   struct _fx_R17K_form__kdeftyp_t* fx_result)
{
   fx_result->kt_name = *r_kt_name;
   fx_copy_str(r_kt_cname, &fx_result->kt_cname);
   fx_result->kt_proto = *r_kt_proto;
   fx_result->kt_props = *r_kt_props;
   FX_COPY_PTR(r_kt_targs, &fx_result->kt_targs);
   FX_COPY_PTR(r_kt_typ, &fx_result->kt_typ);
   FX_COPY_PTR(r_kt_scope, &fx_result->kt_scope);
   fx_result->kt_loc = *r_kt_loc;
}

static void _fx_free_rR17K_form__kdeftyp_t(struct _fx_rR17K_form__kdeftyp_t_data_t** dst)
{
   FX_FREE_REF_IMPL(_fx_rR17K_form__kdeftyp_t, _fx_free_R17K_form__kdeftyp_t);
}

static int _fx_make_rR17K_form__kdeftyp_t(
   struct _fx_R17K_form__kdeftyp_t* arg,
   struct _fx_rR17K_form__kdeftyp_t_data_t** fx_result)
{
   FX_MAKE_REF_IMPL(_fx_rR17K_form__kdeftyp_t, _fx_copy_R17K_form__kdeftyp_t);
}

static void _fx_free_R25K_form__kdefclosurevars_t(struct _fx_R25K_form__kdefclosurevars_t* dst)
{
   fx_free_str(&dst->kcv_cname);
   _fx_free_LT2R9Ast__id_tN14K_form__ktyp_t(&dst->kcv_freevars);
   fx_free_list_simple(&dst->kcv_orig_freevars);
   fx_free_list_simple(&dst->kcv_scope);
}

static void _fx_copy_R25K_form__kdefclosurevars_t(
   struct _fx_R25K_form__kdefclosurevars_t* src,
   struct _fx_R25K_form__kdefclosurevars_t* dst)
{
   dst->kcv_name = src->kcv_name;
   fx_copy_str(&src->kcv_cname, &dst->kcv_cname);
   FX_COPY_PTR(src->kcv_freevars, &dst->kcv_freevars);
   FX_COPY_PTR(src->kcv_orig_freevars, &dst->kcv_orig_freevars);
   FX_COPY_PTR(src->kcv_scope, &dst->kcv_scope);
   dst->kcv_loc = src->kcv_loc;
}

static void _fx_make_R25K_form__kdefclosurevars_t(
   struct _fx_R9Ast__id_t* r_kcv_name,
   fx_str_t* r_kcv_cname,
   struct _fx_LT2R9Ast__id_tN14K_form__ktyp_t_data_t* r_kcv_freevars,
   struct _fx_LR9Ast__id_t_data_t* r_kcv_orig_freevars,
   struct _fx_LN12Ast__scope_t_data_t* r_kcv_scope,
   struct _fx_R10Ast__loc_t* r_kcv_loc,
   struct _fx_R25K_form__kdefclosurevars_t* fx_result)
{
   fx_result->kcv_name = *r_kcv_name;
   fx_copy_str(r_kcv_cname, &fx_result->kcv_cname);
   FX_COPY_PTR(r_kcv_freevars, &fx_result->kcv_freevars);
   FX_COPY_PTR(r_kcv_orig_freevars, &fx_result->kcv_orig_freevars);
   FX_COPY_PTR(r_kcv_scope, &fx_result->kcv_scope);
   fx_result->kcv_loc = *r_kcv_loc;
}

static void _fx_free_rR25K_form__kdefclosurevars_t(struct _fx_rR25K_form__kdefclosurevars_t_data_t** dst)
{
   FX_FREE_REF_IMPL(_fx_rR25K_form__kdefclosurevars_t, _fx_free_R25K_form__kdefclosurevars_t);
}

static int _fx_make_rR25K_form__kdefclosurevars_t(
   struct _fx_R25K_form__kdefclosurevars_t* arg,
   struct _fx_rR25K_form__kdefclosurevars_t_data_t** fx_result)
{
   FX_MAKE_REF_IMPL(_fx_rR25K_form__kdefclosurevars_t, _fx_copy_R25K_form__kdefclosurevars_t);
}

static void _fx_free_T6Rt24Hashset__hashset_entry_t1R9Ast__id_tiiiA1iA1Rt24Hashset__hashset_entry_t1R9Ast__id_t(
   struct _fx_T6Rt24Hashset__hashset_entry_t1R9Ast__id_tiiiA1iA1Rt24Hashset__hashset_entry_t1R9Ast__id_t* dst)
{
   fx_free_arr(&dst->t4);
   fx_free_arr(&dst->t5);
}

static void _fx_copy_T6Rt24Hashset__hashset_entry_t1R9Ast__id_tiiiA1iA1Rt24Hashset__hashset_entry_t1R9Ast__id_t(
   struct _fx_T6Rt24Hashset__hashset_entry_t1R9Ast__id_tiiiA1iA1Rt24Hashset__hashset_entry_t1R9Ast__id_t* src,
   struct _fx_T6Rt24Hashset__hashset_entry_t1R9Ast__id_tiiiA1iA1Rt24Hashset__hashset_entry_t1R9Ast__id_t* dst)
{
   dst->t0 = src->t0;
   dst->t1 = src->t1;
   dst->t2 = src->t2;
   dst->t3 = src->t3;
   fx_copy_arr(&src->t4, &dst->t4);
   fx_copy_arr(&src->t5, &dst->t5);
}

static void _fx_make_T6Rt24Hashset__hashset_entry_t1R9Ast__id_tiiiA1iA1Rt24Hashset__hashset_entry_t1R9Ast__id_t(
   struct _fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t* t0,
   int_ t1,
   int_ t2,
   int_ t3,
   fx_arr_t* t4,
   fx_arr_t* t5,
   struct _fx_T6Rt24Hashset__hashset_entry_t1R9Ast__id_tiiiA1iA1Rt24Hashset__hashset_entry_t1R9Ast__id_t* fx_result)
{
   fx_result->t0 = *t0;
   fx_result->t1 = t1;
   fx_result->t2 = t2;
   fx_result->t3 = t3;
   fx_copy_arr(t4, &fx_result->t4);
   fx_copy_arr(t5, &fx_result->t5);
}

static void _fx_free_Nt10Hashset__t1R9Ast__id_t(struct _fx_Nt10Hashset__t1R9Ast__id_t_data_t** dst)
{
   if (*dst && FX_DECREF((*dst)->rc) == 1) {
      _fx_free_T6Rt24Hashset__hashset_entry_t1R9Ast__id_tiiiA1iA1Rt24Hashset__hashset_entry_t1R9Ast__id_t(&(*dst)->u.t);
      fx_free(*dst);
   }
   *dst = 0;
}

static void _fx_free_T2R10Ast__loc_tS(struct _fx_T2R10Ast__loc_tS* dst)
{
   fx_free_str(&dst->t1);
}

static void _fx_copy_T2R10Ast__loc_tS(struct _fx_T2R10Ast__loc_tS* src, struct _fx_T2R10Ast__loc_tS* dst)
{
   dst->t0 = src->t0;
   fx_copy_str(&src->t1, &dst->t1);
}

static void _fx_make_T2R10Ast__loc_tS(struct _fx_R10Ast__loc_t* t0, fx_str_t* t1, struct _fx_T2R10Ast__loc_tS* fx_result)
{
   fx_result->t0 = *t0;
   fx_copy_str(t1, &fx_result->t1);
}

static void _fx_free_N13Ast__binary_t(struct _fx_N13Ast__binary_t_data_t** dst)
{
   if (*dst && FX_DECREF((*dst)->rc) == 1) {
      switch ((*dst)->tag) {
      case 27:
         _fx_free_N13Ast__binary_t(&(*dst)->u.OpAugBinary); break;
      default:
         ;
      }
      fx_free(*dst);
   }
   *dst = 0;
}

static void _fx_free_T2SR10Ast__loc_t(struct _fx_T2SR10Ast__loc_t* dst)
{
   fx_free_str(&dst->t0);
}

static void _fx_copy_T2SR10Ast__loc_t(struct _fx_T2SR10Ast__loc_t* src, struct _fx_T2SR10Ast__loc_t* dst)
{
   fx_copy_str(&src->t0, &dst->t0);
   dst->t1 = src->t1;
}

static void _fx_make_T2SR10Ast__loc_t(fx_str_t* t0, struct _fx_R10Ast__loc_t* t1, struct _fx_T2SR10Ast__loc_t* fx_result)
{
   fx_copy_str(t0, &fx_result->t0);
   fx_result->t1 = *t1;
}

static void _fx_free_LT2SR10Ast__loc_t(struct _fx_LT2SR10Ast__loc_t_data_t** dst)
{
   FX_FREE_LIST_IMPL(_fx_LT2SR10Ast__loc_t, _fx_free_T2SR10Ast__loc_t);
}

static int _fx_cons_LT2SR10Ast__loc_t(
   struct _fx_T2SR10Ast__loc_t* hd,
   struct _fx_LT2SR10Ast__loc_t_data_t* tl,
   bool addref_tl,
   struct _fx_LT2SR10Ast__loc_t_data_t** fx_result)
{
   FX_MAKE_LIST_IMPL(_fx_LT2SR10Ast__loc_t, _fx_copy_T2SR10Ast__loc_t);
}

static int _fx_cons_Li(int_ hd, struct _fx_Li_data_t* tl, bool addref_tl, struct _fx_Li_data_t** fx_result)
{
   FX_MAKE_LIST_IMPL(_fx_Li, FX_COPY_SIMPLE);
}

static int _fx_make_ri(int_ arg, struct _fx_ri_data_t** fx_result)
{
   FX_MAKE_REF_IMPL(_fx_ri, FX_COPY_SIMPLE);
}

static void _fx_free_Nt6option1N14K_form__kexp_t(struct _fx_Nt6option1N14K_form__kexp_t* dst)
{
   switch (dst->tag) {
   case 2:
      _fx_free_N14K_form__kexp_t(&dst->u.Some); break;
   default:
      ;
   }
   dst->tag = 0;
}

static void _fx_copy_Nt6option1N14K_form__kexp_t(
   struct _fx_Nt6option1N14K_form__kexp_t* src,
   struct _fx_Nt6option1N14K_form__kexp_t* dst)
{
   dst->tag = src->tag;
   switch (src->tag) {
   case 2:
      FX_COPY_PTR(src->u.Some, &dst->u.Some); break;
   default:
      dst->u = src->u;
   }
}

static void _fx_free_N14K_form__klit_t(struct _fx_N14K_form__klit_t* dst)
{
   switch (dst->tag) {
   case 5:
      fx_free_str(&dst->u.KLitString); break;
   case 8:
      _fx_free_N14K_form__ktyp_t(&dst->u.KLitNil); break;
   default:
      ;
   }
   dst->tag = 0;
}

static void _fx_copy_N14K_form__klit_t(struct _fx_N14K_form__klit_t* src, struct _fx_N14K_form__klit_t* dst)
{
   dst->tag = src->tag;
   switch (src->tag) {
   case 5:
      fx_copy_str(&src->u.KLitString, &dst->u.KLitString); break;
   case 8:
      FX_COPY_PTR(src->u.KLitNil, &dst->u.KLitNil); break;
   default:
      dst->u = src->u;
   }
}

static void _fx_free_N14K_form__atom_t(struct _fx_N14K_form__atom_t* dst)
{
   switch (dst->tag) {
   case 2:
      _fx_free_N14K_form__klit_t(&dst->u.AtomLit); break;
   default:
      ;
   }
   dst->tag = 0;
}

static void _fx_copy_N14K_form__atom_t(struct _fx_N14K_form__atom_t* src, struct _fx_N14K_form__atom_t* dst)
{
   dst->tag = src->tag;
   switch (src->tag) {
   case 2:
      _fx_copy_N14K_form__klit_t(&src->u.AtomLit, &dst->u.AtomLit); break;
   default:
      dst->u = src->u;
   }
}

static void _fx_free_R22K_form__k_fold_callb_t(struct _fx_R22K_form__k_fold_callb_t* dst)
{
   _fx_free_Nt6option1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t(&dst->kcb_fold_ktyp);
   _fx_free_Nt6option1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t(&dst->kcb_fold_kexp);
   _fx_free_Nt6option1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t(&dst->kcb_fold_atom);
}

static void _fx_copy_R22K_form__k_fold_callb_t(
   struct _fx_R22K_form__k_fold_callb_t* src,
   struct _fx_R22K_form__k_fold_callb_t* dst)
{
   FX_COPY_PTR(src->kcb_fold_ktyp, &dst->kcb_fold_ktyp);
   FX_COPY_PTR(src->kcb_fold_kexp, &dst->kcb_fold_kexp);
   FX_COPY_PTR(src->kcb_fold_atom, &dst->kcb_fold_atom);
}

static void _fx_make_R22K_form__k_fold_callb_t(
   struct _fx_Nt6option1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t_data_t* r_kcb_fold_ktyp,
   struct _fx_Nt6option1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t_data_t* r_kcb_fold_kexp,
   struct _fx_Nt6option1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t_data_t* r_kcb_fold_atom,
   struct _fx_R22K_form__k_fold_callb_t* fx_result)
{
   FX_COPY_PTR(r_kcb_fold_ktyp, &fx_result->kcb_fold_ktyp);
   FX_COPY_PTR(r_kcb_fold_kexp, &fx_result->kcb_fold_kexp);
   FX_COPY_PTR(r_kcb_fold_atom, &fx_result->kcb_fold_atom);
}

static void _fx_free_Nt6option1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t(
   struct _fx_Nt6option1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t_data_t** dst)
{
   if (*dst && FX_DECREF((*dst)->rc) == 1) {
      fx_free_fp(&(*dst)->u.Some); fx_free(*dst);
   }
   *dst = 0;
}

static void _fx_free_Nt6option1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t(
   struct _fx_Nt6option1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t_data_t** dst)
{
   if (*dst && FX_DECREF((*dst)->rc) == 1) {
      fx_free_fp(&(*dst)->u.Some); fx_free(*dst);
   }
   *dst = 0;
}

static void _fx_free_Nt6option1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t(
   struct _fx_Nt6option1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t_data_t** dst)
{
   if (*dst && FX_DECREF((*dst)->rc) == 1) {
      fx_free_fp(&(*dst)->u.Some); fx_free(*dst);
   }
   *dst = 0;
}

static void _fx_free_R17K_form__k_callb_t(struct _fx_R17K_form__k_callb_t* dst)
{
   _fx_free_Nt6option1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t(&dst->kcb_ktyp);
   _fx_free_Nt6option1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t(&dst->kcb_kexp);
   _fx_free_Nt6option1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t(&dst->kcb_atom);
}

static void _fx_copy_R17K_form__k_callb_t(struct _fx_R17K_form__k_callb_t* src, struct _fx_R17K_form__k_callb_t* dst)
{
   FX_COPY_PTR(src->kcb_ktyp, &dst->kcb_ktyp);
   FX_COPY_PTR(src->kcb_kexp, &dst->kcb_kexp);
   FX_COPY_PTR(src->kcb_atom, &dst->kcb_atom);
}

static void _fx_make_R17K_form__k_callb_t(
   struct _fx_Nt6option1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t_data_t* r_kcb_ktyp,
   struct _fx_Nt6option1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t_data_t* r_kcb_kexp,
   struct _fx_Nt6option1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t_data_t* r_kcb_atom,
   struct _fx_R17K_form__k_callb_t* fx_result)
{
   FX_COPY_PTR(r_kcb_ktyp, &fx_result->kcb_ktyp);
   FX_COPY_PTR(r_kcb_kexp, &fx_result->kcb_kexp);
   FX_COPY_PTR(r_kcb_atom, &fx_result->kcb_atom);
}

static void _fx_free_Nt6option1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t(
   struct _fx_Nt6option1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t_data_t** dst)
{
   if (*dst && FX_DECREF((*dst)->rc) == 1) {
      fx_free_fp(&(*dst)->u.Some); fx_free(*dst);
   }
   *dst = 0;
}

static void _fx_free_Nt6option1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t(
   struct _fx_Nt6option1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t_data_t** dst)
{
   if (*dst && FX_DECREF((*dst)->rc) == 1) {
      fx_free_fp(&(*dst)->u.Some); fx_free(*dst);
   }
   *dst = 0;
}

static void _fx_free_Nt6option1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t(
   struct _fx_Nt6option1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t_data_t** dst)
{
   if (*dst && FX_DECREF((*dst)->rc) == 1) {
      fx_free_fp(&(*dst)->u.Some); fx_free(*dst);
   }
   *dst = 0;
}

static void _fx_free_Nt6option1N14K_form__atom_t(struct _fx_Nt6option1N14K_form__atom_t* dst)
{
   switch (dst->tag) {
   case 2:
      _fx_free_N14K_form__atom_t(&dst->u.Some); break;
   default:
      ;
   }
   dst->tag = 0;
}

static void _fx_copy_Nt6option1N14K_form__atom_t(
   struct _fx_Nt6option1N14K_form__atom_t* src,
   struct _fx_Nt6option1N14K_form__atom_t* dst)
{
   dst->tag = src->tag;
   switch (src->tag) {
   case 2:
      _fx_copy_N14K_form__atom_t(&src->u.Some, &dst->u.Some); break;
   default:
      dst->u = src->u;
   }
}

static void _fx_free_LN14K_form__kexp_t(struct _fx_LN14K_form__kexp_t_data_t** dst)
{
   FX_FREE_LIST_IMPL(_fx_LN14K_form__kexp_t, _fx_free_N14K_form__kexp_t);
}

static int _fx_cons_LN14K_form__kexp_t(
   struct _fx_N14K_form__kexp_t_data_t* hd,
   struct _fx_LN14K_form__kexp_t_data_t* tl,
   bool addref_tl,
   struct _fx_LN14K_form__kexp_t_data_t** fx_result)
{
   FX_MAKE_LIST_IMPL(_fx_LN14K_form__kexp_t, FX_COPY_PTR);
}

static void _fx_free_T2BN14K_form__atom_t(struct _fx_T2BN14K_form__atom_t* dst)
{
   _fx_free_N14K_form__atom_t(&dst->t1);
}

static void _fx_copy_T2BN14K_form__atom_t(struct _fx_T2BN14K_form__atom_t* src, struct _fx_T2BN14K_form__atom_t* dst)
{
   dst->t0 = src->t0;
   _fx_copy_N14K_form__atom_t(&src->t1, &dst->t1);
}

static void _fx_make_T2BN14K_form__atom_t(bool t0, struct _fx_N14K_form__atom_t* t1, struct _fx_T2BN14K_form__atom_t* fx_result)
{
   fx_result->t0 = t0;
   _fx_copy_N14K_form__atom_t(t1, &fx_result->t1);
}

static void _fx_free_LT2BN14K_form__atom_t(struct _fx_LT2BN14K_form__atom_t_data_t** dst)
{
   FX_FREE_LIST_IMPL(_fx_LT2BN14K_form__atom_t, _fx_free_T2BN14K_form__atom_t);
}

static int _fx_cons_LT2BN14K_form__atom_t(
   struct _fx_T2BN14K_form__atom_t* hd,
   struct _fx_LT2BN14K_form__atom_t_data_t* tl,
   bool addref_tl,
   struct _fx_LT2BN14K_form__atom_t_data_t** fx_result)
{
   FX_MAKE_LIST_IMPL(_fx_LT2BN14K_form__atom_t, _fx_copy_T2BN14K_form__atom_t);
}

static void _fx_free_T2LN14K_form__ktyp_tN14K_form__ktyp_t(struct _fx_T2LN14K_form__ktyp_tN14K_form__ktyp_t* dst)
{
   _fx_free_LN14K_form__ktyp_t(&dst->t0);
   _fx_free_N14K_form__ktyp_t(&dst->t1);
}

static void _fx_copy_T2LN14K_form__ktyp_tN14K_form__ktyp_t(
   struct _fx_T2LN14K_form__ktyp_tN14K_form__ktyp_t* src,
   struct _fx_T2LN14K_form__ktyp_tN14K_form__ktyp_t* dst)
{
   FX_COPY_PTR(src->t0, &dst->t0);
   FX_COPY_PTR(src->t1, &dst->t1);
}

static void _fx_make_T2LN14K_form__ktyp_tN14K_form__ktyp_t(
   struct _fx_LN14K_form__ktyp_t_data_t* t0,
   struct _fx_N14K_form__ktyp_t_data_t* t1,
   struct _fx_T2LN14K_form__ktyp_tN14K_form__ktyp_t* fx_result)
{
   FX_COPY_PTR(t0, &fx_result->t0);
   FX_COPY_PTR(t1, &fx_result->t1);
}

static void _fx_free_T2R9Ast__id_tLT2R9Ast__id_tN14K_form__ktyp_t(struct _fx_T2R9Ast__id_tLT2R9Ast__id_tN14K_form__ktyp_t* dst)
{
   _fx_free_LT2R9Ast__id_tN14K_form__ktyp_t(&dst->t1);
}

static void _fx_copy_T2R9Ast__id_tLT2R9Ast__id_tN14K_form__ktyp_t(
   struct _fx_T2R9Ast__id_tLT2R9Ast__id_tN14K_form__ktyp_t* src,
   struct _fx_T2R9Ast__id_tLT2R9Ast__id_tN14K_form__ktyp_t* dst)
{
   dst->t0 = src->t0;
   FX_COPY_PTR(src->t1, &dst->t1);
}

static void _fx_make_T2R9Ast__id_tLT2R9Ast__id_tN14K_form__ktyp_t(
   struct _fx_R9Ast__id_t* t0,
   struct _fx_LT2R9Ast__id_tN14K_form__ktyp_t_data_t* t1,
   struct _fx_T2R9Ast__id_tLT2R9Ast__id_tN14K_form__ktyp_t* fx_result)
{
   fx_result->t0 = *t0;
   FX_COPY_PTR(t1, &fx_result->t1);
}

static void _fx_free_T2iN14K_form__ktyp_t(struct _fx_T2iN14K_form__ktyp_t* dst)
{
   _fx_free_N14K_form__ktyp_t(&dst->t1);
}

static void _fx_copy_T2iN14K_form__ktyp_t(struct _fx_T2iN14K_form__ktyp_t* src, struct _fx_T2iN14K_form__ktyp_t* dst)
{
   dst->t0 = src->t0;
   FX_COPY_PTR(src->t1, &dst->t1);
}

static void _fx_make_T2iN14K_form__ktyp_t(
   int_ t0,
   struct _fx_N14K_form__ktyp_t_data_t* t1,
   struct _fx_T2iN14K_form__ktyp_t* fx_result)
{
   fx_result->t0 = t0;
   FX_COPY_PTR(t1, &fx_result->t1);
}

static void _fx_free_N14K_form__ktyp_t(struct _fx_N14K_form__ktyp_t_data_t** dst)
{
   if (*dst && FX_DECREF((*dst)->rc) == 1) {
      switch ((*dst)->tag) {
      case 12:
         _fx_free_N14K_form__ktyp_t(&(*dst)->u.KTypRawPointer); break;
      case 13:
         _fx_free_T2LN14K_form__ktyp_tN14K_form__ktyp_t(&(*dst)->u.KTypFun); break;
      case 14:
         _fx_free_LN14K_form__ktyp_t(&(*dst)->u.KTypTuple); break;
      case 15:
         _fx_free_T2R9Ast__id_tLT2R9Ast__id_tN14K_form__ktyp_t(&(*dst)->u.KTypRecord); break;
      case 17:
         _fx_free_T2iN14K_form__ktyp_t(&(*dst)->u.KTypArray); break;
      case 18:
         _fx_free_N14K_form__ktyp_t(&(*dst)->u.KTypVector); break;
      case 19:
         _fx_free_N14K_form__ktyp_t(&(*dst)->u.KTypList); break;
      case 20:
         _fx_free_N14K_form__ktyp_t(&(*dst)->u.KTypRef); break;
      default:
         ;
      }
      fx_free(*dst);
   }
   *dst = 0;
}

static void _fx_free_Ta3N14K_form__atom_t(struct _fx_Ta3N14K_form__atom_t* dst)
{
   _fx_free_N14K_form__atom_t(&dst->t0);
   _fx_free_N14K_form__atom_t(&dst->t1);
   _fx_free_N14K_form__atom_t(&dst->t2);
}

static void _fx_copy_Ta3N14K_form__atom_t(struct _fx_Ta3N14K_form__atom_t* src, struct _fx_Ta3N14K_form__atom_t* dst)
{
   _fx_copy_N14K_form__atom_t(&src->t0, &dst->t0);
   _fx_copy_N14K_form__atom_t(&src->t1, &dst->t1);
   _fx_copy_N14K_form__atom_t(&src->t2, &dst->t2);
}

static void _fx_make_Ta3N14K_form__atom_t(
   struct _fx_N14K_form__atom_t* t0,
   struct _fx_N14K_form__atom_t* t1,
   struct _fx_N14K_form__atom_t* t2,
   struct _fx_Ta3N14K_form__atom_t* fx_result)
{
   _fx_copy_N14K_form__atom_t(t0, &fx_result->t0);
   _fx_copy_N14K_form__atom_t(t1, &fx_result->t1);
   _fx_copy_N14K_form__atom_t(t2, &fx_result->t2);
}

static void _fx_free_N13K_form__dom_t(struct _fx_N13K_form__dom_t* dst)
{
   switch (dst->tag) {
   case 1:
      _fx_free_N14K_form__atom_t(&dst->u.DomainElem); break;
   case 2:
      _fx_free_N14K_form__atom_t(&dst->u.DomainFast); break;
   case 3:
      _fx_free_Ta3N14K_form__atom_t(&dst->u.DomainRange); break;
   default:
      ;
   }
   dst->tag = 0;
}

static void _fx_copy_N13K_form__dom_t(struct _fx_N13K_form__dom_t* src, struct _fx_N13K_form__dom_t* dst)
{
   dst->tag = src->tag;
   switch (src->tag) {
   case 1:
      _fx_copy_N14K_form__atom_t(&src->u.DomainElem, &dst->u.DomainElem); break;
   case 2:
      _fx_copy_N14K_form__atom_t(&src->u.DomainFast, &dst->u.DomainFast); break;
   case 3:
      _fx_copy_Ta3N14K_form__atom_t(&src->u.DomainRange, &dst->u.DomainRange); break;
   default:
      dst->u = src->u;
   }
}

static void _fx_free_T2Nt6option1N14K_form__atom_tR10Ast__loc_t(struct _fx_T2Nt6option1N14K_form__atom_tR10Ast__loc_t* dst)
{
   _fx_free_Nt6option1N14K_form__atom_t(&dst->t0);
}

static void _fx_copy_T2Nt6option1N14K_form__atom_tR10Ast__loc_t(
   struct _fx_T2Nt6option1N14K_form__atom_tR10Ast__loc_t* src,
   struct _fx_T2Nt6option1N14K_form__atom_tR10Ast__loc_t* dst)
{
   _fx_copy_Nt6option1N14K_form__atom_t(&src->t0, &dst->t0);
   dst->t1 = src->t1;
}

static void _fx_make_T2Nt6option1N14K_form__atom_tR10Ast__loc_t(
   struct _fx_Nt6option1N14K_form__atom_t* t0,
   struct _fx_R10Ast__loc_t* t1,
   struct _fx_T2Nt6option1N14K_form__atom_tR10Ast__loc_t* fx_result)
{
   _fx_copy_Nt6option1N14K_form__atom_t(t0, &fx_result->t0);
   fx_result->t1 = *t1;
}

static void _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_free_N14K_form__ktyp_t(&dst->t0);
}

static void _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   FX_COPY_PTR(src->t0, &dst->t0);
   dst->t1 = src->t1;
}

static void _fx_make_T2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_N14K_form__ktyp_t_data_t* t0,
   struct _fx_R10Ast__loc_t* t1,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* fx_result)
{
   FX_COPY_PTR(t0, &fx_result->t0);
   fx_result->t1 = *t1;
}

static void _fx_free_T2N14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T2N14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_free_N14K_form__atom_t(&dst->t0);
   _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(&dst->t1);
}

static void _fx_copy_T2N14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T2N14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T2N14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_copy_N14K_form__atom_t(&src->t0, &dst->t0);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(&src->t1, &dst->t1);
}

static void _fx_make_T2N14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_N14K_form__atom_t* t0,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* t1,
   struct _fx_T2N14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* fx_result)
{
   _fx_copy_N14K_form__atom_t(t0, &fx_result->t0);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(t1, &fx_result->t1);
}

static void _fx_free_T4N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T4N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_free_N13Ast__binary_t(&dst->t0);
   _fx_free_N14K_form__atom_t(&dst->t1);
   _fx_free_N14K_form__atom_t(&dst->t2);
   _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(&dst->t3);
}

static void _fx_copy_T4N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T4N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T4N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   FX_COPY_PTR(src->t0, &dst->t0);
   _fx_copy_N14K_form__atom_t(&src->t1, &dst->t1);
   _fx_copy_N14K_form__atom_t(&src->t2, &dst->t2);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(&src->t3, &dst->t3);
}

static void _fx_make_T4N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_N13Ast__binary_t_data_t* t0,
   struct _fx_N14K_form__atom_t* t1,
   struct _fx_N14K_form__atom_t* t2,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* t3,
   struct _fx_T4N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* fx_result)
{
   FX_COPY_PTR(t0, &fx_result->t0);
   _fx_copy_N14K_form__atom_t(t1, &fx_result->t1);
   _fx_copy_N14K_form__atom_t(t2, &fx_result->t2);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(t3, &fx_result->t3);
}

static void _fx_free_T3N12Ast__unary_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T3N12Ast__unary_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_free_N14K_form__atom_t(&dst->t1);
   _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(&dst->t2);
}

static void _fx_copy_T3N12Ast__unary_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T3N12Ast__unary_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T3N12Ast__unary_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   dst->t0 = src->t0;
   _fx_copy_N14K_form__atom_t(&src->t1, &dst->t1);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(&src->t2, &dst->t2);
}

static void _fx_make_T3N12Ast__unary_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_N12Ast__unary_t* t0,
   struct _fx_N14K_form__atom_t* t1,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* t2,
   struct _fx_T3N12Ast__unary_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* fx_result)
{
   fx_result->t0 = *t0;
   _fx_copy_N14K_form__atom_t(t1, &fx_result->t1);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(t2, &fx_result->t2);
}

static void _fx_free_LN14K_form__atom_t(struct _fx_LN14K_form__atom_t_data_t** dst)
{
   FX_FREE_LIST_IMPL(_fx_LN14K_form__atom_t, _fx_free_N14K_form__atom_t);
}

static int _fx_cons_LN14K_form__atom_t(
   struct _fx_N14K_form__atom_t* hd,
   struct _fx_LN14K_form__atom_t_data_t* tl,
   bool addref_tl,
   struct _fx_LN14K_form__atom_t_data_t** fx_result)
{
   FX_MAKE_LIST_IMPL(_fx_LN14K_form__atom_t, _fx_copy_N14K_form__atom_t);
}

static void _fx_free_T3N13Ast__intrin_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T3N13Ast__intrin_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_free_LN14K_form__atom_t(&dst->t1);
   _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(&dst->t2);
}

static void _fx_copy_T3N13Ast__intrin_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T3N13Ast__intrin_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T3N13Ast__intrin_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   dst->t0 = src->t0;
   FX_COPY_PTR(src->t1, &dst->t1);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(&src->t2, &dst->t2);
}

static void _fx_make_T3N13Ast__intrin_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_N13Ast__intrin_t* t0,
   struct _fx_LN14K_form__atom_t_data_t* t1,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* t2,
   struct _fx_T3N13Ast__intrin_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* fx_result)
{
   fx_result->t0 = *t0;
   FX_COPY_PTR(t1, &fx_result->t1);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(t2, &fx_result->t2);
}

static void _fx_free_T2R9Ast__id_tN14K_form__kexp_t(struct _fx_T2R9Ast__id_tN14K_form__kexp_t* dst)
{
   _fx_free_N14K_form__kexp_t(&dst->t1);
}

static void _fx_copy_T2R9Ast__id_tN14K_form__kexp_t(
   struct _fx_T2R9Ast__id_tN14K_form__kexp_t* src,
   struct _fx_T2R9Ast__id_tN14K_form__kexp_t* dst)
{
   dst->t0 = src->t0;
   FX_COPY_PTR(src->t1, &dst->t1);
}

static void _fx_make_T2R9Ast__id_tN14K_form__kexp_t(
   struct _fx_R9Ast__id_t* t0,
   struct _fx_N14K_form__kexp_t_data_t* t1,
   struct _fx_T2R9Ast__id_tN14K_form__kexp_t* fx_result)
{
   fx_result->t0 = *t0;
   FX_COPY_PTR(t1, &fx_result->t1);
}

static void _fx_free_T2LN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T2LN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_free_LN14K_form__kexp_t(&dst->t0);
   _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(&dst->t1);
}

static void _fx_copy_T2LN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T2LN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T2LN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   FX_COPY_PTR(src->t0, &dst->t0);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(&src->t1, &dst->t1);
}

static void _fx_make_T2LN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_LN14K_form__kexp_t_data_t* t0,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* t1,
   struct _fx_T2LN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t* fx_result)
{
   FX_COPY_PTR(t0, &fx_result->t0);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(t1, &fx_result->t1);
}

static void _fx_free_T4N14K_form__kexp_tN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T4N14K_form__kexp_tN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_free_N14K_form__kexp_t(&dst->t0);
   _fx_free_N14K_form__kexp_t(&dst->t1);
   _fx_free_N14K_form__kexp_t(&dst->t2);
   _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(&dst->t3);
}

static void _fx_copy_T4N14K_form__kexp_tN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T4N14K_form__kexp_tN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T4N14K_form__kexp_tN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   FX_COPY_PTR(src->t0, &dst->t0);
   FX_COPY_PTR(src->t1, &dst->t1);
   FX_COPY_PTR(src->t2, &dst->t2);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(&src->t3, &dst->t3);
}

static void _fx_make_T4N14K_form__kexp_tN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_N14K_form__kexp_t_data_t* t0,
   struct _fx_N14K_form__kexp_t_data_t* t1,
   struct _fx_N14K_form__kexp_t_data_t* t2,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* t3,
   struct _fx_T4N14K_form__kexp_tN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t* fx_result)
{
   FX_COPY_PTR(t0, &fx_result->t0);
   FX_COPY_PTR(t1, &fx_result->t1);
   FX_COPY_PTR(t2, &fx_result->t2);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(t3, &fx_result->t3);
}

static void _fx_free_T3R9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T3R9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_free_LN14K_form__atom_t(&dst->t1);
   _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(&dst->t2);
}

static void _fx_copy_T3R9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T3R9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T3R9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   dst->t0 = src->t0;
   FX_COPY_PTR(src->t1, &dst->t1);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(&src->t2, &dst->t2);
}

static void _fx_make_T3R9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_R9Ast__id_t* t0,
   struct _fx_LN14K_form__atom_t_data_t* t1,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* t2,
   struct _fx_T3R9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* fx_result)
{
   fx_result->t0 = *t0;
   FX_COPY_PTR(t1, &fx_result->t1);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(t2, &fx_result->t2);
}

static void _fx_free_T4R9Ast__id_tiLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T4R9Ast__id_tiLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_free_LN14K_form__atom_t(&dst->t2);
   _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(&dst->t3);
}

static void _fx_copy_T4R9Ast__id_tiLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T4R9Ast__id_tiLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T4R9Ast__id_tiLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   dst->t0 = src->t0;
   dst->t1 = src->t1;
   FX_COPY_PTR(src->t2, &dst->t2);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(&src->t3, &dst->t3);
}

static void _fx_make_T4R9Ast__id_tiLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_R9Ast__id_t* t0,
   int_ t1,
   struct _fx_LN14K_form__atom_t_data_t* t2,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* t3,
   struct _fx_T4R9Ast__id_tiLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* fx_result)
{
   fx_result->t0 = *t0;
   fx_result->t1 = t1;
   FX_COPY_PTR(t2, &fx_result->t2);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(t3, &fx_result->t3);
}

static void _fx_free_T2LN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T2LN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_free_LN14K_form__atom_t(&dst->t0);
   _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(&dst->t1);
}

static void _fx_copy_T2LN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T2LN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T2LN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   FX_COPY_PTR(src->t0, &dst->t0);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(&src->t1, &dst->t1);
}

static void _fx_make_T2LN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_LN14K_form__atom_t_data_t* t0,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* t1,
   struct _fx_T2LN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* fx_result)
{
   FX_COPY_PTR(t0, &fx_result->t0);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(t1, &fx_result->t1);
}

static void _fx_free_T4R9Ast__id_tR9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T4R9Ast__id_tR9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_free_LN14K_form__atom_t(&dst->t2);
   _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(&dst->t3);
}

static void _fx_copy_T4R9Ast__id_tR9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T4R9Ast__id_tR9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T4R9Ast__id_tR9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   dst->t0 = src->t0;
   dst->t1 = src->t1;
   FX_COPY_PTR(src->t2, &dst->t2);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(&src->t3, &dst->t3);
}

static void _fx_make_T4R9Ast__id_tR9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_R9Ast__id_t* t0,
   struct _fx_R9Ast__id_t* t1,
   struct _fx_LN14K_form__atom_t_data_t* t2,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* t3,
   struct _fx_T4R9Ast__id_tR9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* fx_result)
{
   fx_result->t0 = *t0;
   fx_result->t1 = *t1;
   FX_COPY_PTR(t2, &fx_result->t2);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(t3, &fx_result->t3);
}

static void _fx_free_LLT2BN14K_form__atom_t(struct _fx_LLT2BN14K_form__atom_t_data_t** dst)
{
   FX_FREE_LIST_IMPL(_fx_LLT2BN14K_form__atom_t, _fx_free_LT2BN14K_form__atom_t);
}

static int _fx_cons_LLT2BN14K_form__atom_t(
   struct _fx_LT2BN14K_form__atom_t_data_t* hd,
   struct _fx_LLT2BN14K_form__atom_t_data_t* tl,
   bool addref_tl,
   struct _fx_LLT2BN14K_form__atom_t_data_t** fx_result)
{
   FX_MAKE_LIST_IMPL(_fx_LLT2BN14K_form__atom_t, FX_COPY_PTR);
}

static void _fx_free_T3BLLT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T3BLLT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_free_LLT2BN14K_form__atom_t(&dst->t1);
   _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(&dst->t2);
}

static void _fx_copy_T3BLLT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T3BLLT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T3BLLT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   dst->t0 = src->t0;
   FX_COPY_PTR(src->t1, &dst->t1);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(&src->t2, &dst->t2);
}

static void _fx_make_T3BLLT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   bool t0,
   struct _fx_LLT2BN14K_form__atom_t_data_t* t1,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* t2,
   struct _fx_T3BLLT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* fx_result)
{
   fx_result->t0 = t0;
   FX_COPY_PTR(t1, &fx_result->t1);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(t2, &fx_result->t2);
}

static void _fx_free_T2LT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T2LT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_free_LT2BN14K_form__atom_t(&dst->t0);
   _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(&dst->t1);
}

static void _fx_copy_T2LT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T2LT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T2LT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   FX_COPY_PTR(src->t0, &dst->t0);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(&src->t1, &dst->t1);
}

static void _fx_make_T2LT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_LT2BN14K_form__atom_t_data_t* t0,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* t1,
   struct _fx_T2LT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* fx_result)
{
   FX_COPY_PTR(t0, &fx_result->t0);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(t1, &fx_result->t1);
}

static void _fx_free_LN13K_form__dom_t(struct _fx_LN13K_form__dom_t_data_t** dst)
{
   FX_FREE_LIST_IMPL(_fx_LN13K_form__dom_t, _fx_free_N13K_form__dom_t);
}

static int _fx_cons_LN13K_form__dom_t(
   struct _fx_N13K_form__dom_t* hd,
   struct _fx_LN13K_form__dom_t_data_t* tl,
   bool addref_tl,
   struct _fx_LN13K_form__dom_t_data_t** fx_result)
{
   FX_MAKE_LIST_IMPL(_fx_LN13K_form__dom_t, _fx_copy_N13K_form__dom_t);
}

static void _fx_free_T5N14K_form__atom_tN13Ast__border_tN18Ast__interpolate_tLN13K_form__dom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T5N14K_form__atom_tN13Ast__border_tN18Ast__interpolate_tLN13K_form__dom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_free_N14K_form__atom_t(&dst->t0);
   _fx_free_LN13K_form__dom_t(&dst->t3);
   _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(&dst->t4);
}

static void _fx_copy_T5N14K_form__atom_tN13Ast__border_tN18Ast__interpolate_tLN13K_form__dom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T5N14K_form__atom_tN13Ast__border_tN18Ast__interpolate_tLN13K_form__dom_tT2N14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T5N14K_form__atom_tN13Ast__border_tN18Ast__interpolate_tLN13K_form__dom_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_copy_N14K_form__atom_t(&src->t0, &dst->t0);
   dst->t1 = src->t1;
   dst->t2 = src->t2;
   FX_COPY_PTR(src->t3, &dst->t3);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(&src->t4, &dst->t4);
}

static void _fx_make_T5N14K_form__atom_tN13Ast__border_tN18Ast__interpolate_tLN13K_form__dom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_N14K_form__atom_t* t0,
   struct _fx_N13Ast__border_t* t1,
   struct _fx_N18Ast__interpolate_t* t2,
   struct _fx_LN13K_form__dom_t_data_t* t3,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* t4,
   struct _fx_T5N14K_form__atom_tN13Ast__border_tN18Ast__interpolate_tLN13K_form__dom_tT2N14K_form__ktyp_tR10Ast__loc_t*
      fx_result)
{
   _fx_copy_N14K_form__atom_t(t0, &fx_result->t0);
   fx_result->t1 = *t1;
   fx_result->t2 = *t2;
   FX_COPY_PTR(t3, &fx_result->t3);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(t4, &fx_result->t4);
}

static void _fx_free_T3R9Ast__id_tiT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T3R9Ast__id_tiT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(&dst->t2);
}

static void _fx_copy_T3R9Ast__id_tiT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T3R9Ast__id_tiT2N14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T3R9Ast__id_tiT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   dst->t0 = src->t0;
   dst->t1 = src->t1;
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(&src->t2, &dst->t2);
}

static void _fx_make_T3R9Ast__id_tiT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_R9Ast__id_t* t0,
   int_ t1,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* t2,
   struct _fx_T3R9Ast__id_tiT2N14K_form__ktyp_tR10Ast__loc_t* fx_result)
{
   fx_result->t0 = *t0;
   fx_result->t1 = t1;
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(t2, &fx_result->t2);
}

static void _fx_free_T3R9Ast__id_tN14K_form__atom_tR10Ast__loc_t(struct _fx_T3R9Ast__id_tN14K_form__atom_tR10Ast__loc_t* dst)
{
   _fx_free_N14K_form__atom_t(&dst->t1);
}

static void _fx_copy_T3R9Ast__id_tN14K_form__atom_tR10Ast__loc_t(
   struct _fx_T3R9Ast__id_tN14K_form__atom_tR10Ast__loc_t* src,
   struct _fx_T3R9Ast__id_tN14K_form__atom_tR10Ast__loc_t* dst)
{
   dst->t0 = src->t0;
   _fx_copy_N14K_form__atom_t(&src->t1, &dst->t1);
   dst->t2 = src->t2;
}

static void _fx_make_T3R9Ast__id_tN14K_form__atom_tR10Ast__loc_t(
   struct _fx_R9Ast__id_t* t0,
   struct _fx_N14K_form__atom_t* t1,
   struct _fx_R10Ast__loc_t* t2,
   struct _fx_T3R9Ast__id_tN14K_form__atom_tR10Ast__loc_t* fx_result)
{
   fx_result->t0 = *t0;
   _fx_copy_N14K_form__atom_t(t1, &fx_result->t1);
   fx_result->t2 = *t2;
}

static void _fx_free_T2LN14K_form__kexp_tN14K_form__kexp_t(struct _fx_T2LN14K_form__kexp_tN14K_form__kexp_t* dst)
{
   _fx_free_LN14K_form__kexp_t(&dst->t0);
   _fx_free_N14K_form__kexp_t(&dst->t1);
}

static void _fx_copy_T2LN14K_form__kexp_tN14K_form__kexp_t(
   struct _fx_T2LN14K_form__kexp_tN14K_form__kexp_t* src,
   struct _fx_T2LN14K_form__kexp_tN14K_form__kexp_t* dst)
{
   FX_COPY_PTR(src->t0, &dst->t0);
   FX_COPY_PTR(src->t1, &dst->t1);
}

static void _fx_make_T2LN14K_form__kexp_tN14K_form__kexp_t(
   struct _fx_LN14K_form__kexp_t_data_t* t0,
   struct _fx_N14K_form__kexp_t_data_t* t1,
   struct _fx_T2LN14K_form__kexp_tN14K_form__kexp_t* fx_result)
{
   FX_COPY_PTR(t0, &fx_result->t0);
   FX_COPY_PTR(t1, &fx_result->t1);
}

static void _fx_free_LT2LN14K_form__kexp_tN14K_form__kexp_t(struct _fx_LT2LN14K_form__kexp_tN14K_form__kexp_t_data_t** dst)
{
   FX_FREE_LIST_IMPL(_fx_LT2LN14K_form__kexp_tN14K_form__kexp_t, _fx_free_T2LN14K_form__kexp_tN14K_form__kexp_t);
}

static int _fx_cons_LT2LN14K_form__kexp_tN14K_form__kexp_t(
   struct _fx_T2LN14K_form__kexp_tN14K_form__kexp_t* hd,
   struct _fx_LT2LN14K_form__kexp_tN14K_form__kexp_t_data_t* tl,
   bool addref_tl,
   struct _fx_LT2LN14K_form__kexp_tN14K_form__kexp_t_data_t** fx_result)
{
   FX_MAKE_LIST_IMPL(_fx_LT2LN14K_form__kexp_tN14K_form__kexp_t, _fx_copy_T2LN14K_form__kexp_tN14K_form__kexp_t);
}

static void _fx_free_T2LT2LN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T2LT2LN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_free_LT2LN14K_form__kexp_tN14K_form__kexp_t(&dst->t0);
   _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(&dst->t1);
}

static void _fx_copy_T2LT2LN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T2LT2LN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T2LT2LN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   FX_COPY_PTR(src->t0, &dst->t0);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(&src->t1, &dst->t1);
}

static void _fx_make_T2LT2LN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_LT2LN14K_form__kexp_tN14K_form__kexp_t_data_t* t0,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* t1,
   struct _fx_T2LT2LN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t* fx_result)
{
   FX_COPY_PTR(t0, &fx_result->t0);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(t1, &fx_result->t1);
}

static void _fx_free_T3N14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T3N14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_free_N14K_form__kexp_t(&dst->t0);
   _fx_free_N14K_form__kexp_t(&dst->t1);
   _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(&dst->t2);
}

static void _fx_copy_T3N14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T3N14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T3N14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   FX_COPY_PTR(src->t0, &dst->t0);
   FX_COPY_PTR(src->t1, &dst->t1);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(&src->t2, &dst->t2);
}

static void _fx_make_T3N14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_N14K_form__kexp_t_data_t* t0,
   struct _fx_N14K_form__kexp_t_data_t* t1,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* t2,
   struct _fx_T3N14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t* fx_result)
{
   FX_COPY_PTR(t0, &fx_result->t0);
   FX_COPY_PTR(t1, &fx_result->t1);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(t2, &fx_result->t2);
}

static void _fx_free_T3N14K_form__atom_tN14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T3N14K_form__atom_tN14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_free_N14K_form__atom_t(&dst->t0);
   _fx_free_N14K_form__ktyp_t(&dst->t1);
}

static void _fx_copy_T3N14K_form__atom_tN14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T3N14K_form__atom_tN14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T3N14K_form__atom_tN14K_form__ktyp_tR10Ast__loc_t* dst)
{
   _fx_copy_N14K_form__atom_t(&src->t0, &dst->t0);
   FX_COPY_PTR(src->t1, &dst->t1);
   dst->t2 = src->t2;
}

static void _fx_make_T3N14K_form__atom_tN14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_N14K_form__atom_t* t0,
   struct _fx_N14K_form__ktyp_t_data_t* t1,
   struct _fx_R10Ast__loc_t* t2,
   struct _fx_T3N14K_form__atom_tN14K_form__ktyp_tR10Ast__loc_t* fx_result)
{
   _fx_copy_N14K_form__atom_t(t0, &fx_result->t0);
   FX_COPY_PTR(t1, &fx_result->t1);
   fx_result->t2 = *t2;
}

static void _fx_free_T2R9Ast__id_tN13K_form__dom_t(struct _fx_T2R9Ast__id_tN13K_form__dom_t* dst)
{
   _fx_free_N13K_form__dom_t(&dst->t1);
}

static void _fx_copy_T2R9Ast__id_tN13K_form__dom_t(
   struct _fx_T2R9Ast__id_tN13K_form__dom_t* src,
   struct _fx_T2R9Ast__id_tN13K_form__dom_t* dst)
{
   dst->t0 = src->t0;
   _fx_copy_N13K_form__dom_t(&src->t1, &dst->t1);
}

static void _fx_make_T2R9Ast__id_tN13K_form__dom_t(
   struct _fx_R9Ast__id_t* t0,
   struct _fx_N13K_form__dom_t* t1,
   struct _fx_T2R9Ast__id_tN13K_form__dom_t* fx_result)
{
   fx_result->t0 = *t0;
   _fx_copy_N13K_form__dom_t(t1, &fx_result->t1);
}

static void _fx_free_LT2R9Ast__id_tN13K_form__dom_t(struct _fx_LT2R9Ast__id_tN13K_form__dom_t_data_t** dst)
{
   FX_FREE_LIST_IMPL(_fx_LT2R9Ast__id_tN13K_form__dom_t, _fx_free_T2R9Ast__id_tN13K_form__dom_t);
}

static int _fx_cons_LT2R9Ast__id_tN13K_form__dom_t(
   struct _fx_T2R9Ast__id_tN13K_form__dom_t* hd,
   struct _fx_LT2R9Ast__id_tN13K_form__dom_t_data_t* tl,
   bool addref_tl,
   struct _fx_LT2R9Ast__id_tN13K_form__dom_t_data_t** fx_result)
{
   FX_MAKE_LIST_IMPL(_fx_LT2R9Ast__id_tN13K_form__dom_t, _fx_copy_T2R9Ast__id_tN13K_form__dom_t);
}

static void _fx_free_T3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t(
   struct _fx_T3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t* dst)
{
   _fx_free_N14K_form__kexp_t(&dst->t0);
   _fx_free_LT2R9Ast__id_tN13K_form__dom_t(&dst->t1);
   fx_free_list_simple(&dst->t2);
}

static void _fx_copy_T3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t(
   struct _fx_T3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t* src,
   struct _fx_T3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t* dst)
{
   FX_COPY_PTR(src->t0, &dst->t0);
   FX_COPY_PTR(src->t1, &dst->t1);
   FX_COPY_PTR(src->t2, &dst->t2);
}

static void _fx_make_T3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t(
   struct _fx_N14K_form__kexp_t_data_t* t0,
   struct _fx_LT2R9Ast__id_tN13K_form__dom_t_data_t* t1,
   struct _fx_LR9Ast__id_t_data_t* t2,
   struct _fx_T3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t* fx_result)
{
   FX_COPY_PTR(t0, &fx_result->t0);
   FX_COPY_PTR(t1, &fx_result->t1);
   FX_COPY_PTR(t2, &fx_result->t2);
}

static void _fx_free_LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t(
   struct _fx_LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t_data_t** dst)
{
   FX_FREE_LIST_IMPL(_fx_LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t,
      _fx_free_T3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t);
}

static int _fx_cons_LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t(
   struct _fx_T3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t* hd,
   struct _fx_LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t_data_t* tl,
   bool addref_tl,
   struct _fx_LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t_data_t** fx_result)
{
   FX_MAKE_LIST_IMPL(_fx_LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t,
      _fx_copy_T3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t);
}

static void
   _fx_free_T4LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T4LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tT2N14K_form__ktyp_tR10Ast__loc_t*
      dst)
{
   _fx_free_LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t(&dst->t0);
   _fx_free_N14K_form__kexp_t(&dst->t1);
   _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(&dst->t3);
}

static void
   _fx_copy_T4LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T4LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tT2N14K_form__ktyp_tR10Ast__loc_t*
      src,
   struct _fx_T4LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tT2N14K_form__ktyp_tR10Ast__loc_t*
      dst)
{
   FX_COPY_PTR(src->t0, &dst->t0);
   FX_COPY_PTR(src->t1, &dst->t1);
   dst->t2 = src->t2;
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(&src->t3, &dst->t3);
}

static void
   _fx_make_T4LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_t_data_t* t0,
   struct _fx_N14K_form__kexp_t_data_t* t1,
   struct _fx_R16Ast__for_flags_t* t2,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* t3,
   struct _fx_T4LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tT2N14K_form__ktyp_tR10Ast__loc_t*
      fx_result)
{
   FX_COPY_PTR(t0, &fx_result->t0);
   FX_COPY_PTR(t1, &fx_result->t1);
   fx_result->t2 = *t2;
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(t3, &fx_result->t3);
}

static void _fx_free_T5LT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tR10Ast__loc_t(
   struct _fx_T5LT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tR10Ast__loc_t* dst)
{
   _fx_free_LT2R9Ast__id_tN13K_form__dom_t(&dst->t0);
   fx_free_list_simple(&dst->t1);
   _fx_free_N14K_form__kexp_t(&dst->t2);
}

static void _fx_copy_T5LT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tR10Ast__loc_t(
   struct _fx_T5LT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tR10Ast__loc_t* src,
   struct _fx_T5LT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tR10Ast__loc_t* dst)
{
   FX_COPY_PTR(src->t0, &dst->t0);
   FX_COPY_PTR(src->t1, &dst->t1);
   FX_COPY_PTR(src->t2, &dst->t2);
   dst->t3 = src->t3;
   dst->t4 = src->t4;
}

static void _fx_make_T5LT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tR10Ast__loc_t(
   struct _fx_LT2R9Ast__id_tN13K_form__dom_t_data_t* t0,
   struct _fx_LR9Ast__id_t_data_t* t1,
   struct _fx_N14K_form__kexp_t_data_t* t2,
   struct _fx_R16Ast__for_flags_t* t3,
   struct _fx_R10Ast__loc_t* t4,
   struct _fx_T5LT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tR10Ast__loc_t* fx_result)
{
   FX_COPY_PTR(t0, &fx_result->t0);
   FX_COPY_PTR(t1, &fx_result->t1);
   FX_COPY_PTR(t2, &fx_result->t2);
   fx_result->t3 = *t3;
   fx_result->t4 = *t4;
}

static void _fx_free_T3N14K_form__kexp_tN14K_form__kexp_tR10Ast__loc_t(
   struct _fx_T3N14K_form__kexp_tN14K_form__kexp_tR10Ast__loc_t* dst)
{
   _fx_free_N14K_form__kexp_t(&dst->t0);
   _fx_free_N14K_form__kexp_t(&dst->t1);
}

static void _fx_copy_T3N14K_form__kexp_tN14K_form__kexp_tR10Ast__loc_t(
   struct _fx_T3N14K_form__kexp_tN14K_form__kexp_tR10Ast__loc_t* src,
   struct _fx_T3N14K_form__kexp_tN14K_form__kexp_tR10Ast__loc_t* dst)
{
   FX_COPY_PTR(src->t0, &dst->t0);
   FX_COPY_PTR(src->t1, &dst->t1);
   dst->t2 = src->t2;
}

static void _fx_make_T3N14K_form__kexp_tN14K_form__kexp_tR10Ast__loc_t(
   struct _fx_N14K_form__kexp_t_data_t* t0,
   struct _fx_N14K_form__kexp_t_data_t* t1,
   struct _fx_R10Ast__loc_t* t2,
   struct _fx_T3N14K_form__kexp_tN14K_form__kexp_tR10Ast__loc_t* fx_result)
{
   FX_COPY_PTR(t0, &fx_result->t0);
   FX_COPY_PTR(t1, &fx_result->t1);
   fx_result->t2 = *t2;
}

static void _fx_free_T2ST2N14K_form__ktyp_tR10Ast__loc_t(struct _fx_T2ST2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   fx_free_str(&dst->t0);
   _fx_free_T2N14K_form__ktyp_tR10Ast__loc_t(&dst->t1);
}

static void _fx_copy_T2ST2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_T2ST2N14K_form__ktyp_tR10Ast__loc_t* src,
   struct _fx_T2ST2N14K_form__ktyp_tR10Ast__loc_t* dst)
{
   fx_copy_str(&src->t0, &dst->t0);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(&src->t1, &dst->t1);
}

static void _fx_make_T2ST2N14K_form__ktyp_tR10Ast__loc_t(
   fx_str_t* t0,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* t1,
   struct _fx_T2ST2N14K_form__ktyp_tR10Ast__loc_t* fx_result)
{
   fx_copy_str(t0, &fx_result->t0);
   _fx_copy_T2N14K_form__ktyp_tR10Ast__loc_t(t1, &fx_result->t1);
}

static void _fx_free_T3R9Ast__id_tN14K_form__kexp_tR10Ast__loc_t(struct _fx_T3R9Ast__id_tN14K_form__kexp_tR10Ast__loc_t* dst)
{
   _fx_free_N14K_form__kexp_t(&dst->t1);
}

static void _fx_copy_T3R9Ast__id_tN14K_form__kexp_tR10Ast__loc_t(
   struct _fx_T3R9Ast__id_tN14K_form__kexp_tR10Ast__loc_t* src,
   struct _fx_T3R9Ast__id_tN14K_form__kexp_tR10Ast__loc_t* dst)
{
   dst->t0 = src->t0;
   FX_COPY_PTR(src->t1, &dst->t1);
   dst->t2 = src->t2;
}

static void _fx_make_T3R9Ast__id_tN14K_form__kexp_tR10Ast__loc_t(
   struct _fx_R9Ast__id_t* t0,
   struct _fx_N14K_form__kexp_t_data_t* t1,
   struct _fx_R10Ast__loc_t* t2,
   struct _fx_T3R9Ast__id_tN14K_form__kexp_tR10Ast__loc_t* fx_result)
{
   fx_result->t0 = *t0;
   FX_COPY_PTR(t1, &fx_result->t1);
   fx_result->t2 = *t2;
}

static void _fx_free_N14K_form__kexp_t(struct _fx_N14K_form__kexp_t_data_t** dst)
{
   if (*dst && FX_DECREF((*dst)->rc) == 1) {
      switch ((*dst)->tag) {
      case 4:
         _fx_free_T2Nt6option1N14K_form__atom_tR10Ast__loc_t(&(*dst)->u.KExpReturn); break;
      case 5:
         _fx_free_T2N14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(&(*dst)->u.KExpAtom); break;
      case 6:
         _fx_free_T4N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(&(*dst)->u.KExpBinary);
         break;
      case 7:
         _fx_free_T3N12Ast__unary_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(&(*dst)->u.KExpUnary); break;
      case 8:
         _fx_free_T3N13Ast__intrin_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(&(*dst)->u.KExpIntrin); break;
      case 9:
         _fx_free_T2R9Ast__id_tN14K_form__kexp_t(&(*dst)->u.KExpSync); break;
      case 10:
         _fx_free_T2LN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t(&(*dst)->u.KExpSeq); break;
      case 11:
         _fx_free_T4N14K_form__kexp_tN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t(&(*dst)->u.KExpIf);
         break;
      case 12:
         _fx_free_T3R9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(&(*dst)->u.KExpCall); break;
      case 13:
         _fx_free_T4R9Ast__id_tiLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(&(*dst)->u.KExpICall); break;
      case 14:
         _fx_free_T2LN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(&(*dst)->u.KExpMkTuple); break;
      case 15:
         _fx_free_T2LN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(&(*dst)->u.KExpMkRecord); break;
      case 16:
         _fx_free_T4R9Ast__id_tR9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(&(*dst)->u.KExpMkClosure); break;
      case 17:
         _fx_free_T3BLLT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(&(*dst)->u.KExpMkArray); break;
      case 18:
         _fx_free_T2LT2BN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(&(*dst)->u.KExpMkVector); break;
      case 19:
         _fx_free_T5N14K_form__atom_tN13Ast__border_tN18Ast__interpolate_tLN13K_form__dom_tT2N14K_form__ktyp_tR10Ast__loc_t(
            &(*dst)->u.KExpAt);
         break;
      case 20:
         _fx_free_T3R9Ast__id_tiT2N14K_form__ktyp_tR10Ast__loc_t(&(*dst)->u.KExpMem); break;
      case 21:
         _fx_free_T3R9Ast__id_tN14K_form__atom_tR10Ast__loc_t(&(*dst)->u.KExpAssign); break;
      case 22:
         _fx_free_T2LT2LN14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t(&(*dst)->u.KExpMatch); break;
      case 23:
         _fx_free_T3N14K_form__kexp_tN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_t(&(*dst)->u.KExpTryCatch); break;
      case 25:
         _fx_free_T3N14K_form__atom_tN14K_form__ktyp_tR10Ast__loc_t(&(*dst)->u.KExpCast); break;
      case 26:
         _fx_free_T4LT3N14K_form__kexp_tLT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tT2N14K_form__ktyp_tR10Ast__loc_t(
            &(*dst)->u.KExpMap);
         break;
      case 27:
         _fx_free_T5LT2R9Ast__id_tN13K_form__dom_tLR9Ast__id_tN14K_form__kexp_tR16Ast__for_flags_tR10Ast__loc_t(
            &(*dst)->u.KExpFor);
         break;
      case 28:
         _fx_free_T3N14K_form__kexp_tN14K_form__kexp_tR10Ast__loc_t(&(*dst)->u.KExpWhile); break;
      case 29:
         _fx_free_T3N14K_form__kexp_tN14K_form__kexp_tR10Ast__loc_t(&(*dst)->u.KExpDoWhile); break;
      case 30:
         _fx_free_T2ST2N14K_form__ktyp_tR10Ast__loc_t(&(*dst)->u.KExpCCode); break;
      case 31:
         _fx_free_T3R9Ast__id_tN14K_form__kexp_tR10Ast__loc_t(&(*dst)->u.KDefVal); break;
      case 32:
         _fx_free_rR17K_form__kdeffun_t(&(*dst)->u.KDefFun); break;
      case 33:
         _fx_free_rR17K_form__kdefexn_t(&(*dst)->u.KDefExn); break;
      case 34:
         _fx_free_rR21K_form__kdefvariant_t(&(*dst)->u.KDefVariant); break;
      case 35:
         _fx_free_rR23K_form__kdefinterface_t(&(*dst)->u.KDefInterface); break;
      case 36:
         _fx_free_rR17K_form__kdeftyp_t(&(*dst)->u.KDefTyp); break;
      case 37:
         _fx_free_rR25K_form__kdefclosurevars_t(&(*dst)->u.KDefClosureVars); break;
      default:
         ;
      }
      fx_free(*dst);
   }
   *dst = 0;
}

static void _fx_free_R14Ast__pragmas_t(struct _fx_R14Ast__pragmas_t* dst)
{
   _fx_free_LT2SR10Ast__loc_t(&dst->pragma_clibs);
}

static void _fx_copy_R14Ast__pragmas_t(struct _fx_R14Ast__pragmas_t* src, struct _fx_R14Ast__pragmas_t* dst)
{
   dst->pragma_cpp = src->pragma_cpp;
   FX_COPY_PTR(src->pragma_clibs, &dst->pragma_clibs);
}

static void _fx_make_R14Ast__pragmas_t(
   bool r_pragma_cpp,
   struct _fx_LT2SR10Ast__loc_t_data_t* r_pragma_clibs,
   struct _fx_R14Ast__pragmas_t* fx_result)
{
   fx_result->pragma_cpp = r_pragma_cpp;
   FX_COPY_PTR(r_pragma_clibs, &fx_result->pragma_clibs);
}

static void _fx_free_R17K_form__kmodule_t(struct _fx_R17K_form__kmodule_t* dst)
{
   fx_free_str(&dst->km_cname);
   _fx_free_LN14K_form__kexp_t(&dst->km_top);
   fx_free_list_simple(&dst->km_deps);
   _fx_free_R14Ast__pragmas_t(&dst->km_pragmas);
}

static void _fx_copy_R17K_form__kmodule_t(struct _fx_R17K_form__kmodule_t* src, struct _fx_R17K_form__kmodule_t* dst)
{
   dst->km_name = src->km_name;
   dst->km_idx = src->km_idx;
   dst->km_toposort_idx = src->km_toposort_idx;
   fx_copy_str(&src->km_cname, &dst->km_cname);
   FX_COPY_PTR(src->km_top, &dst->km_top);
   FX_COPY_PTR(src->km_deps, &dst->km_deps);
   dst->km_skip = src->km_skip;
   dst->km_main = src->km_main;
   _fx_copy_R14Ast__pragmas_t(&src->km_pragmas, &dst->km_pragmas);
}

static void _fx_make_R17K_form__kmodule_t(
   struct _fx_R9Ast__id_t* r_km_name,
   int_ r_km_idx,
   int_ r_km_toposort_idx,
   fx_str_t* r_km_cname,
   struct _fx_LN14K_form__kexp_t_data_t* r_km_top,
   struct _fx_Li_data_t* r_km_deps,
   bool r_km_skip,
   bool r_km_main,
   struct _fx_R14Ast__pragmas_t* r_km_pragmas,
   struct _fx_R17K_form__kmodule_t* fx_result)
{
   fx_result->km_name = *r_km_name;
   fx_result->km_idx = r_km_idx;
   fx_result->km_toposort_idx = r_km_toposort_idx;
   fx_copy_str(r_km_cname, &fx_result->km_cname);
   FX_COPY_PTR(r_km_top, &fx_result->km_top);
   FX_COPY_PTR(r_km_deps, &fx_result->km_deps);
   fx_result->km_skip = r_km_skip;
   fx_result->km_main = r_km_main;
   _fx_copy_R14Ast__pragmas_t(r_km_pragmas, &fx_result->km_pragmas);
}

static void _fx_free_LR17K_form__kmodule_t(struct _fx_LR17K_form__kmodule_t_data_t** dst)
{
   FX_FREE_LIST_IMPL(_fx_LR17K_form__kmodule_t, _fx_free_R17K_form__kmodule_t);
}

static int _fx_cons_LR17K_form__kmodule_t(
   struct _fx_R17K_form__kmodule_t* hd,
   struct _fx_LR17K_form__kmodule_t_data_t* tl,
   bool addref_tl,
   struct _fx_LR17K_form__kmodule_t_data_t** fx_result)
{
   FX_MAKE_LIST_IMPL(_fx_LR17K_form__kmodule_t, _fx_copy_R17K_form__kmodule_t);
}

static void _fx_free_rLN14K_form__kexp_t(struct _fx_rLN14K_form__kexp_t_data_t** dst)
{
   FX_FREE_REF_IMPL(_fx_rLN14K_form__kexp_t, _fx_free_LN14K_form__kexp_t);
}

static int _fx_make_rLN14K_form__kexp_t(
   struct _fx_LN14K_form__kexp_t_data_t* arg,
   struct _fx_rLN14K_form__kexp_t_data_t** fx_result)
{
   FX_MAKE_REF_IMPL(_fx_rLN14K_form__kexp_t, FX_COPY_PTR);
}

static void _fx_free_rNt10Hashset__t1R9Ast__id_t(struct _fx_rNt10Hashset__t1R9Ast__id_t_data_t** dst)
{
   FX_FREE_REF_IMPL(_fx_rNt10Hashset__t1R9Ast__id_t, _fx_free_Nt10Hashset__t1R9Ast__id_t);
}

static int _fx_make_rNt10Hashset__t1R9Ast__id_t(
   struct _fx_Nt10Hashset__t1R9Ast__id_t_data_t* arg,
   struct _fx_rNt10Hashset__t1R9Ast__id_t_data_t** fx_result)
{
   FX_MAKE_REF_IMPL(_fx_rNt10Hashset__t1R9Ast__id_t, FX_COPY_PTR);
}

static void _fx_free_R32K_optim_matop__matrix_projection(struct _fx_R32K_optim_matop__matrix_projection* dst)
{
   _fx_free_Ta3N14K_form__atom_t(&dst->row_range);
   _fx_free_Ta3N14K_form__atom_t(&dst->col_range);
}

static void _fx_copy_R32K_optim_matop__matrix_projection(
   struct _fx_R32K_optim_matop__matrix_projection* src,
   struct _fx_R32K_optim_matop__matrix_projection* dst)
{
   dst->original_matrix = src->original_matrix;
   _fx_copy_Ta3N14K_form__atom_t(&src->row_range, &dst->row_range);
   _fx_copy_Ta3N14K_form__atom_t(&src->col_range, &dst->col_range);
   dst->is_transposed = src->is_transposed;
}

static void _fx_make_R32K_optim_matop__matrix_projection(
   struct _fx_R9Ast__id_t* r_original_matrix,
   struct _fx_Ta3N14K_form__atom_t* r_row_range,
   struct _fx_Ta3N14K_form__atom_t* r_col_range,
   bool r_is_transposed,
   struct _fx_R32K_optim_matop__matrix_projection* fx_result)
{
   fx_result->original_matrix = *r_original_matrix;
   _fx_copy_Ta3N14K_form__atom_t(r_row_range, &fx_result->row_range);
   _fx_copy_Ta3N14K_form__atom_t(r_col_range, &fx_result->col_range);
   fx_result->is_transposed = r_is_transposed;
}

static void _fx_free_Nt6option1R32K_optim_matop__matrix_projection(
   struct _fx_Nt6option1R32K_optim_matop__matrix_projection* dst)
{
   switch (dst->tag) {
   case 2:
      _fx_free_R32K_optim_matop__matrix_projection(&dst->u.Some); break;
   default:
      ;
   }
   dst->tag = 0;
}

static void _fx_copy_Nt6option1R32K_optim_matop__matrix_projection(
   struct _fx_Nt6option1R32K_optim_matop__matrix_projection* src,
   struct _fx_Nt6option1R32K_optim_matop__matrix_projection* dst)
{
   dst->tag = src->tag;
   switch (src->tag) {
   case 2:
      _fx_copy_R32K_optim_matop__matrix_projection(&src->u.Some, &dst->u.Some); break;
   default:
      dst->u = src->u;
   }
}

static void _fx_free_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(
   struct _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection* dst)
{
   _fx_free_R32K_optim_matop__matrix_projection(&dst->data);
}

static void _fx_copy_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(
   struct _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection* src,
   struct _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection* dst)
{
   dst->hv = src->hv;
   dst->key = src->key;
   _fx_copy_R32K_optim_matop__matrix_projection(&src->data, &dst->data);
}

static void _fx_make_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(
   uint64_t r_hv,
   struct _fx_R9Ast__id_t* r_key,
   struct _fx_R32K_optim_matop__matrix_projection* r_data,
   struct _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection* fx_result)
{
   fx_result->hv = r_hv;
   fx_result->key = *r_key;
   _fx_copy_R32K_optim_matop__matrix_projection(r_data, &fx_result->data);
}

static void
   _fx_free_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projectioniiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(
   struct _fx_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projectioniiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection*
      dst)
{
   _fx_free_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(&dst->t0);
   fx_free_arr(&dst->t4);
   fx_free_arr(&dst->t5);
}

static void
   _fx_copy_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projectioniiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(
   struct _fx_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projectioniiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection*
      src,
   struct _fx_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projectioniiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection*
      dst)
{
   _fx_copy_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(&src->t0, &dst->t0);
   dst->t1 = src->t1;
   dst->t2 = src->t2;
   dst->t3 = src->t3;
   fx_copy_arr(&src->t4, &dst->t4);
   fx_copy_arr(&src->t5, &dst->t5);
}

static void
   _fx_make_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projectioniiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(
   struct _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection* t0,
   int_ t1,
   int_ t2,
   int_ t3,
   fx_arr_t* t4,
   fx_arr_t* t5,
   struct _fx_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projectioniiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection*
      fx_result)
{
   _fx_copy_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(t0, &fx_result->t0);
   fx_result->t1 = t1;
   fx_result->t2 = t2;
   fx_result->t3 = t3;
   fx_copy_arr(t4, &fx_result->t4);
   fx_copy_arr(t5, &fx_result->t5);
}

static void _fx_free_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection(
   struct _fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t** dst)
{
   if (*dst && FX_DECREF((*dst)->rc) == 1) {
      _fx_free_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projectioniiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(
         &(*dst)->u.t);
      fx_free(*dst);
   }
   *dst = 0;
}

static void _fx_free_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_tiiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t(
   struct _fx_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_tiiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t* dst)
{
   fx_free_arr(&dst->t4);
   fx_free_arr(&dst->t5);
}

static void _fx_copy_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_tiiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t(
   struct _fx_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_tiiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t* src,
   struct _fx_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_tiiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t* dst)
{
   dst->t0 = src->t0;
   dst->t1 = src->t1;
   dst->t2 = src->t2;
   dst->t3 = src->t3;
   fx_copy_arr(&src->t4, &dst->t4);
   fx_copy_arr(&src->t5, &dst->t5);
}

static void _fx_make_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_tiiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t(
   struct _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t* t0,
   int_ t1,
   int_ t2,
   int_ t3,
   fx_arr_t* t4,
   fx_arr_t* t5,
   struct _fx_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_tiiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t*
      fx_result)
{
   fx_result->t0 = *t0;
   fx_result->t1 = t1;
   fx_result->t2 = t2;
   fx_result->t3 = t3;
   fx_copy_arr(t4, &fx_result->t4);
   fx_copy_arr(t5, &fx_result->t5);
}

static void _fx_free_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t(struct _fx_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t** dst)
{
   if (*dst && FX_DECREF((*dst)->rc) == 1) {
      _fx_free_T6Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_tiiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t(
         &(*dst)->u.t);
      fx_free(*dst);
   }
   *dst = 0;
}

static void _fx_free_Ta2R32K_optim_matop__matrix_projection(struct _fx_Ta2R32K_optim_matop__matrix_projection* dst)
{
   _fx_free_R32K_optim_matop__matrix_projection(&dst->t0);
   _fx_free_R32K_optim_matop__matrix_projection(&dst->t1);
}

static void _fx_copy_Ta2R32K_optim_matop__matrix_projection(
   struct _fx_Ta2R32K_optim_matop__matrix_projection* src,
   struct _fx_Ta2R32K_optim_matop__matrix_projection* dst)
{
   _fx_copy_R32K_optim_matop__matrix_projection(&src->t0, &dst->t0);
   _fx_copy_R32K_optim_matop__matrix_projection(&src->t1, &dst->t1);
}

static void _fx_make_Ta2R32K_optim_matop__matrix_projection(
   struct _fx_R32K_optim_matop__matrix_projection* t0,
   struct _fx_R32K_optim_matop__matrix_projection* t1,
   struct _fx_Ta2R32K_optim_matop__matrix_projection* fx_result)
{
   _fx_copy_R32K_optim_matop__matrix_projection(t0, &fx_result->t0);
   _fx_copy_R32K_optim_matop__matrix_projection(t1, &fx_result->t1);
}

static void _fx_free_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection(
   struct _fx_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t** dst)
{
   FX_FREE_REF_IMPL(_fx_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection,
      _fx_free_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection);
}

static int _fx_make_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection(
   struct _fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t* arg,
   struct _fx_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t** fx_result)
{
   FX_MAKE_REF_IMPL(_fx_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection, FX_COPY_PTR);
}

static void _fx_free_T2R32K_optim_matop__matrix_projectionLN14K_form__kexp_t(
   struct _fx_T2R32K_optim_matop__matrix_projectionLN14K_form__kexp_t* dst)
{
   _fx_free_R32K_optim_matop__matrix_projection(&dst->t0);
   _fx_free_LN14K_form__kexp_t(&dst->t1);
}

static void _fx_copy_T2R32K_optim_matop__matrix_projectionLN14K_form__kexp_t(
   struct _fx_T2R32K_optim_matop__matrix_projectionLN14K_form__kexp_t* src,
   struct _fx_T2R32K_optim_matop__matrix_projectionLN14K_form__kexp_t* dst)
{
   _fx_copy_R32K_optim_matop__matrix_projection(&src->t0, &dst->t0);
   FX_COPY_PTR(src->t1, &dst->t1);
}

static void _fx_make_T2R32K_optim_matop__matrix_projectionLN14K_form__kexp_t(
   struct _fx_R32K_optim_matop__matrix_projection* t0,
   struct _fx_LN14K_form__kexp_t_data_t* t1,
   struct _fx_T2R32K_optim_matop__matrix_projectionLN14K_form__kexp_t* fx_result)
{
   _fx_copy_R32K_optim_matop__matrix_projection(t0, &fx_result->t0);
   FX_COPY_PTR(t1, &fx_result->t1);
}

static void _fx_free_Ta2Ta3N14K_form__atom_t(struct _fx_Ta2Ta3N14K_form__atom_t* dst)
{
   _fx_free_Ta3N14K_form__atom_t(&dst->t0);
   _fx_free_Ta3N14K_form__atom_t(&dst->t1);
}

static void _fx_copy_Ta2Ta3N14K_form__atom_t(struct _fx_Ta2Ta3N14K_form__atom_t* src, struct _fx_Ta2Ta3N14K_form__atom_t* dst)
{
   _fx_copy_Ta3N14K_form__atom_t(&src->t0, &dst->t0);
   _fx_copy_Ta3N14K_form__atom_t(&src->t1, &dst->t1);
}

static void _fx_make_Ta2Ta3N14K_form__atom_t(
   struct _fx_Ta3N14K_form__atom_t* t0,
   struct _fx_Ta3N14K_form__atom_t* t1,
   struct _fx_Ta2Ta3N14K_form__atom_t* fx_result)
{
   _fx_copy_Ta3N14K_form__atom_t(t0, &fx_result->t0);
   _fx_copy_Ta3N14K_form__atom_t(t1, &fx_result->t1);
}

static void _fx_free_T2N14K_form__atom_tLN14K_form__kexp_t(struct _fx_T2N14K_form__atom_tLN14K_form__kexp_t* dst)
{
   _fx_free_N14K_form__atom_t(&dst->t0);
   _fx_free_LN14K_form__kexp_t(&dst->t1);
}

static void _fx_copy_T2N14K_form__atom_tLN14K_form__kexp_t(
   struct _fx_T2N14K_form__atom_tLN14K_form__kexp_t* src,
   struct _fx_T2N14K_form__atom_tLN14K_form__kexp_t* dst)
{
   _fx_copy_N14K_form__atom_t(&src->t0, &dst->t0);
   FX_COPY_PTR(src->t1, &dst->t1);
}

static void _fx_make_T2N14K_form__atom_tLN14K_form__kexp_t(
   struct _fx_N14K_form__atom_t* t0,
   struct _fx_LN14K_form__kexp_t_data_t* t1,
   struct _fx_T2N14K_form__atom_tLN14K_form__kexp_t* fx_result)
{
   _fx_copy_N14K_form__atom_t(t0, &fx_result->t0);
   FX_COPY_PTR(t1, &fx_result->t1);
}

static void _fx_free_rNt10Hashmap__t2R9Ast__id_tR9Ast__id_t(struct _fx_rNt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t** dst)
{
   FX_FREE_REF_IMPL(_fx_rNt10Hashmap__t2R9Ast__id_tR9Ast__id_t, _fx_free_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t);
}

static int _fx_make_rNt10Hashmap__t2R9Ast__id_tR9Ast__id_t(
   struct _fx_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t* arg,
   struct _fx_rNt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t** fx_result)
{
   FX_MAKE_REF_IMPL(_fx_rNt10Hashmap__t2R9Ast__id_tR9Ast__id_t, FX_COPY_PTR);
}

_fx_Nt6option1R32K_optim_matop__matrix_projection _fx_g19K_optim_matop__None = { 1 };
_fx_Nt6option1R9Ast__id_t _fx_g21K_optim_matop__None1_ = { 1 };
_fx_N12Ast__cmpop_t _fx_g20K_optim_matop__CmpLT = { 3 };
_fx_N12Ast__cmpop_t _fx_g20K_optim_matop__CmpLE = { 4 };
static _fx_N13Ast__binary_t_data_t OpAdd_data_4 = { 1, 1 };
_fx_N13Ast__binary_t _fx_g20K_optim_matop__OpAdd = &OpAdd_data_4;
static _fx_N13Ast__binary_t_data_t OpMul_data_4 = { 1, 3 };
_fx_N13Ast__binary_t _fx_g20K_optim_matop__OpMul = &OpMul_data_4;
_fx_N13Ast__intrin_t _fx_g25K_optim_matop__IntrinGEMM = { 13 };
static _fx_N14K_form__ktyp_t_data_t KTypVoid_data_5 = { 1, 7 };
_fx_N14K_form__ktyp_t _fx_g23K_optim_matop__KTypVoid = &KTypVoid_data_5;
static _fx_N14K_form__ktyp_t_data_t KTypBool_data_3 = { 1, 8 };
_fx_N14K_form__ktyp_t _fx_g23K_optim_matop__KTypBool = &KTypBool_data_3;
FX_EXTERN_C int _fx_M7HashmapFM9makeindexA1i1i(int_ size_0, fx_arr_t* fx_result, void* fx_fv);

FX_EXTERN_C int _fx_F9make_FailE1S(fx_str_t* arg0, fx_exn_t* fx_result);

FX_EXTERN_C int _fx_F6assertv1B(bool f_0, void* fx_fv);

FX_EXTERN_C int _fx_M7HashsetFM9makeindexA1i1i(int_ size_0, fx_arr_t* fx_result, void* fx_fv);

FX_EXTERN_C int _fx_M3AstFM5OpCmpN13Ast__binary_t1N12Ast__cmpop_t(
   struct _fx_N12Ast__cmpop_t* arg0,
   struct _fx_N13Ast__binary_t_data_t** fx_result);

FX_EXTERN_C int
   _fx_M15K_cfold_dealiasFM9cfold_bopNt6option1N14K_form__kexp_t5N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tN14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_N13Ast__binary_t_data_t* bop_0,
   struct _fx_N14K_form__atom_t* a_0,
   struct _fx_N14K_form__atom_t* b_0,
   struct _fx_N14K_form__ktyp_t_data_t* res_t_0,
   struct _fx_R10Ast__loc_t* loc_0,
   struct _fx_Nt6option1N14K_form__kexp_t* fx_result,
   void* fx_fv);

FX_EXTERN_C int _fx_M3AstFM11compile_errE2RM5loc_tS(
   struct _fx_R10Ast__loc_t* loc_0,
   fx_str_t* msg_0,
   fx_exn_t* fx_result,
   void* fx_fv);

FX_EXTERN_C void _fx_M6K_formFM6AtomIdN14K_form__atom_t1R9Ast__id_t(
   struct _fx_R9Ast__id_t* arg0,
   struct _fx_N14K_form__atom_t* fx_result);

FX_EXTERN_C void _fx_M6K_formFM8KLitBoolN14K_form__klit_t1B(bool arg0, struct _fx_N14K_form__klit_t* fx_result);

FX_EXTERN_C void _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(
   struct _fx_N14K_form__klit_t* arg0,
   struct _fx_N14K_form__atom_t* fx_result);

FX_EXTERN_C int _fx_M3AstFM16empty_id_hashsetNt10Hashset__t1RM4id_t1i(
   int_ size0_0,
   struct _fx_Nt10Hashset__t1R9Ast__id_t_data_t** fx_result,
   void* fx_fv);

FX_EXTERN_C void _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(
   struct _fx_N14K_form__ktyp_t_data_t* arg0,
   struct _fx_N14K_form__klit_t* fx_result);

FX_EXTERN_C_VAL(struct _fx_R9Ast__id_t _fx_g9Ast__noid)
FX_EXTERN_C int
   _fx_M13K_optim_matopFM7make_fpFPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t3rirNt10Hashset__t1R9Ast__id_trNt10Hashmap__t2R9Ast__id_tRM17matrix_projection(
   struct _fx_ri_data_t* arg0,
   struct _fx_rNt10Hashset__t1R9Ast__id_t_data_t* arg1,
   struct _fx_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t* arg2,
   struct _fx_FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t* fx_result);

static int _fx_M13K_optim_matopFM22form_involved_matrixesv2LN14K_form__kexp_trNt10Hashset__t1R9Ast__id_t(
   struct _fx_LN14K_form__kexp_t_data_t* ktop_0,
   struct _fx_rNt10Hashset__t1R9Ast__id_t_data_t* involved_matrixes_ref_0,
   void* fx_fv);

static int
   _fx_M13K_optim_matopFM13juxtapose_idxT2N14K_form__atom_tLN14K_form__kexp_t6Ta3N14K_form__atom_tN14K_form__atom_tBLN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_tri(
   struct _fx_Ta3N14K_form__atom_t* base_range_0,
   struct _fx_N14K_form__atom_t* constriction_0,
   bool is_end_0,
   struct _fx_LN14K_form__kexp_t_data_t* code_0,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* ctx_0,
   struct _fx_ri_data_t* curr_m_idx_ref_0,
   struct _fx_T2N14K_form__atom_tLN14K_form__kexp_t* fx_result,
   void* fx_fv);

FX_EXTERN_C void _fx_M6K_formFM7KLitIntN14K_form__klit_t1l(int64_t arg0, struct _fx_N14K_form__klit_t* fx_result);

static int
   _fx_M13K_optim_matopFM16constriction_bopT2N14K_form__atom_tLN14K_form__kexp_t6N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_tLN14K_form__kexp_tri(
   struct _fx_N13Ast__binary_t_data_t* bop_0,
   struct _fx_N14K_form__atom_t* constriction_0,
   struct _fx_N14K_form__atom_t* sec_operand_0,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* ctx_0,
   struct _fx_LN14K_form__kexp_t_data_t* code_0,
   struct _fx_ri_data_t* curr_m_idx_ref_0,
   struct _fx_T2N14K_form__atom_tLN14K_form__kexp_t* fx_result,
   void* fx_fv);

FX_EXTERN_C int _fx_M6K_formFM13get_atom_ktypN14K_form__ktyp_t2N14K_form__atom_tR10Ast__loc_t(
   struct _fx_N14K_form__atom_t* a_0,
   struct _fx_R10Ast__loc_t* loc_0,
   struct _fx_N14K_form__ktyp_t_data_t** fx_result,
   void* fx_fv);

FX_EXTERN_C int
   _fx_M6K_formFM10KExpBinaryN14K_form__kexp_t4N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_N13Ast__binary_t_data_t* arg0,
   struct _fx_N14K_form__atom_t* arg1,
   struct _fx_N14K_form__atom_t* arg2,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* arg3,
   struct _fx_N14K_form__kexp_t_data_t** fx_result);

FX_EXTERN_C int _fx_M6K_formFM7dup_idkR9Ast__id_t2iR9Ast__id_t(
   int_ m_idx_0,
   struct _fx_R9Ast__id_t* old_id_0,
   struct _fx_R9Ast__id_t* fx_result,
   void* fx_fv);

FX_EXTERN_C int _fx_M3AstFM17default_val_flagsRM11val_flags_t0(struct _fx_R16Ast__val_flags_t* fx_result, void* fx_fv);

FX_EXTERN_C int
   _fx_M6K_formFM14create_kdefvalLN14K_form__kexp_t6R9Ast__id_tN14K_form__ktyp_tR16Ast__val_flags_tNt6option1N14K_form__kexp_tLN14K_form__kexp_tR10Ast__loc_t(
   struct _fx_R9Ast__id_t* n_0,
   struct _fx_N14K_form__ktyp_t_data_t* ktyp_0,
   struct _fx_R16Ast__val_flags_t* flags_0,
   struct _fx_Nt6option1N14K_form__kexp_t* e_opt_0,
   struct _fx_LN14K_form__kexp_t_data_t* code_0,
   struct _fx_R10Ast__loc_t* loc_0,
   struct _fx_LN14K_form__kexp_t_data_t** fx_result,
   void* fx_fv);

FX_EXTERN_C int
   _fx_M13K_optim_matopFM7make_fpFPv2N14K_form__kexp_tR22K_form__k_fold_callb_t2rNt10Hashset__t1R9Ast__id_trNt10Hashmap__t2R9Ast__id_tR9Ast__id_t(
   struct _fx_rNt10Hashset__t1R9Ast__id_t_data_t* arg0,
   struct _fx_rNt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t* arg1,
   struct _fx_FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t* fx_result);

static int
   _fx_M13K_optim_matopFM17collect_dep_nodesv3R9Ast__id_trNt10Hashset__t1R9Ast__id_trNt10Hashmap__t2R9Ast__id_tR9Ast__id_t(
   struct _fx_R9Ast__id_t* m_0,
   struct _fx_rNt10Hashset__t1R9Ast__id_t_data_t* involved_matrixes_ref_0,
   struct _fx_rNt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t* matrix_dependencies_ref_0,
   void* fx_fv);

static int _fx_M13K_optim_matopFM18fold_matrdep_kexp_v2N14K_form__kexp_tR22K_form__k_fold_callb_t(
   struct _fx_N14K_form__kexp_t_data_t* e_0,
   struct _fx_R22K_form__k_fold_callb_t* callb_0,
   void* fx_fv);

FX_EXTERN_C int _fx_M6K_formFM10is_mutableB2R9Ast__id_tR10Ast__loc_t(
   struct _fx_R9Ast__id_t* n_0,
   struct _fx_R10Ast__loc_t* loc_0,
   bool* fx_result,
   void* fx_fv);

FX_EXTERN_C_VAL(struct _fx_R10Ast__loc_t _fx_g10Ast__noloc)
FX_EXTERN_C int _fx_M6K_formFM11get_idk_locR10Ast__loc_t2R9Ast__id_tR10Ast__loc_t(
   struct _fx_R9Ast__id_t* n_0,
   struct _fx_R10Ast__loc_t* loc_0,
   struct _fx_R10Ast__loc_t* fx_result,
   void* fx_fv);

FX_EXTERN_C int _fx_M3AstFM2ppS1RM4id_t(struct _fx_R9Ast__id_t* i_0, fx_str_t* fx_result, void* fx_fv);

FX_EXTERN_C int _fx_M3AstFM13fname_op_aposRM4id_t0(struct _fx_R9Ast__id_t* fx_result, void* fx_fv);

FX_EXTERN_C bool _fx_F6__eq__B2SS(fx_str_t* a, fx_str_t* b, void* fx_fv);

FX_EXTERN_C int _fx_M6K_formFM12get_idk_ktypN14K_form__ktyp_t2R9Ast__id_tR10Ast__loc_t(
   struct _fx_R9Ast__id_t* n_0,
   struct _fx_R10Ast__loc_t* loc_0,
   struct _fx_N14K_form__ktyp_t_data_t** fx_result,
   void* fx_fv);

FX_EXTERN_C int _fx_M6K_formFM9fold_kexpv2N14K_form__kexp_tRM14k_fold_callb_t(
   struct _fx_N14K_form__kexp_t_data_t* e_0,
   struct _fx_R22K_form__k_fold_callb_t* callb_0,
   void* fx_fv);

FX_EXTERN_C int _fx_M3AstFM12fname_op_mulRM4id_t0(struct _fx_R9Ast__id_t* fx_result, void* fx_fv);

static int _fx_M13K_optim_matopFM9opg_kexp_N14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t(
   struct _fx_N14K_form__kexp_t_data_t* e_0,
   struct _fx_R17K_form__k_callb_t* callb_0,
   struct _fx_N14K_form__kexp_t_data_t** fx_result,
   void* fx_fv);

FX_EXTERN_C int _fx_M6K_formFM9walk_kexpN14K_form__kexp_t2N14K_form__kexp_tRM9k_callb_t(
   struct _fx_N14K_form__kexp_t_data_t* e_0,
   struct _fx_R17K_form__k_callb_t* callb_0,
   struct _fx_N14K_form__kexp_t_data_t** fx_result,
   void* fx_fv);

FX_EXTERN_C int _fx_M6K_formFM7KDefValN14K_form__kexp_t3R9Ast__id_tN14K_form__kexp_tR10Ast__loc_t(
   struct _fx_R9Ast__id_t* arg0,
   struct _fx_N14K_form__kexp_t_data_t* arg1,
   struct _fx_R10Ast__loc_t* arg2,
   struct _fx_N14K_form__kexp_t_data_t** fx_result);

static int
   _fx_M13K_optim_matopFM19process_matrix_infoRM17matrix_projection5RM17matrix_projectionT2N14K_form__ktyp_tR10Ast__loc_trirLN14K_form__kexp_trNt10Hashmap__t2R9Ast__id_tRM17matrix_projection(
   struct _fx_R32K_optim_matop__matrix_projection* m_pr_0,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* ctx_0,
   struct _fx_ri_data_t* curr_m_idx_ref_0,
   struct _fx_rLN14K_form__kexp_t_data_t* extra_decls_ref_0,
   struct _fx_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t* mat_proj_map_ref_0,
   struct _fx_R32K_optim_matop__matrix_projection* fx_result,
   void* fx_fv);

FX_EXTERN_C int _fx_M6K_formFM10KExpIntrinN14K_form__kexp_t3N13Ast__intrin_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_N13Ast__intrin_t* arg0,
   struct _fx_LN14K_form__atom_t_data_t* arg1,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* arg2,
   struct _fx_N14K_form__kexp_t_data_t** fx_result);

static int
   _fx_M13K_optim_matopFM21get_matrix_projectionRM17matrix_projection2R9Ast__id_trNt10Hashmap__t2R9Ast__id_tRM17matrix_projection(
   struct _fx_R9Ast__id_t* matr_0,
   struct _fx_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t* mat_proj_map_ref_0,
   struct _fx_R32K_optim_matop__matrix_projection* fx_result,
   void* fx_fv);

FX_EXTERN_C int _fx_M6K_formFM12get_kexp_locR10Ast__loc_t1N14K_form__kexp_t(
   struct _fx_N14K_form__kexp_t_data_t* e_0,
   struct _fx_R10Ast__loc_t* fx_result,
   void* fx_fv);

FX_EXTERN_C int _fx_M6K_formFM10rcode2kexpN14K_form__kexp_t2LN14K_form__kexp_tR10Ast__loc_t(
   struct _fx_LN14K_form__kexp_t_data_t* code_0,
   struct _fx_R10Ast__loc_t* loc_0,
   struct _fx_N14K_form__kexp_t_data_t** fx_result,
   void* fx_fv);

typedef struct {
   int_ rc;
   fx_free_t free_f;
   struct _fx_rNt10Hashset__t1R9Ast__id_t_data_t* t0;
   struct _fx_rNt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t* t1;
} _fx_M13K_optim_matopFM18fold_matrdep_kexp_v2N14K_form__kexp_tR22K_form__k_fold_callb_t_cldata_t;

FX_EXTERN_C void _fx_free_M13K_optim_matopFM18fold_matrdep_kexp_v2N14K_form__kexp_tR22K_form__k_fold_callb_t(
   _fx_M13K_optim_matopFM18fold_matrdep_kexp_v2N14K_form__kexp_tR22K_form__k_fold_callb_t_cldata_t* dst)
{
   _fx_free_rNt10Hashset__t1R9Ast__id_t(&dst->t0);
   _fx_free_rNt10Hashmap__t2R9Ast__id_tR9Ast__id_t(&dst->t1);
   fx_free(dst);
}

typedef struct {
   int_ rc;
   fx_free_t free_f;
   struct _fx_ri_data_t* t0;
   struct _fx_rNt10Hashset__t1R9Ast__id_t_data_t* t1;
   struct _fx_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t* t2;
} _fx_M13K_optim_matopFM9opg_kexp_N14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t_cldata_t;

FX_EXTERN_C void _fx_free_M13K_optim_matopFM9opg_kexp_N14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t(
   _fx_M13K_optim_matopFM9opg_kexp_N14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t_cldata_t* dst)
{
   FX_FREE_REF_SIMPLE(&dst->t0);
   _fx_free_rNt10Hashset__t1R9Ast__id_t(&dst->t1);
   _fx_free_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection(&dst->t2);
   fx_free(dst);
}

FX_EXTERN_C void _fx_M13K_optim_matopFM4SomeNt6option1RM17matrix_projection1RM17matrix_projection(
   struct _fx_R32K_optim_matop__matrix_projection* arg0,
   struct _fx_Nt6option1R32K_optim_matop__matrix_projection* fx_result)
{
   fx_result->tag = 2;
   _fx_copy_R32K_optim_matop__matrix_projection(arg0, &fx_result->u.Some);
}

FX_EXTERN_C void _fx_M13K_optim_matopFM4SomeNt6option1N14K_form__kexp_t1N14K_form__kexp_t(
   struct _fx_N14K_form__kexp_t_data_t* arg0,
   struct _fx_Nt6option1N14K_form__kexp_t* fx_result)
{
   fx_result->tag = 2;
   FX_COPY_PTR(arg0, &fx_result->u.Some);
}

FX_EXTERN_C int
   _fx_M13K_optim_matopFM4SomeNt6option1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t(
   struct _fx_FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t* arg0,
   struct _fx_Nt6option1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t_data_t** fx_result)
{
   FX_MAKE_RECURSIVE_VARIANT_IMPL_START(_fx_Nt6option1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t);
   FX_COPY_FP(arg0, &v->u.Some);
   return 0;
}

FX_EXTERN_C int
   _fx_M13K_optim_matopFM4SomeNt6option1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t(
   struct _fx_FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t* arg0,
   struct _fx_Nt6option1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t_data_t** fx_result)
{
   FX_MAKE_RECURSIVE_VARIANT_IMPL_START(_fx_Nt6option1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t);
   FX_COPY_FP(arg0, &v->u.Some);
   return 0;
}

FX_EXTERN_C int
   _fx_M13K_optim_matopFM4SomeNt6option1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t(
   struct _fx_FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t* arg0,
   struct _fx_Nt6option1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t_data_t** fx_result)
{
   FX_MAKE_RECURSIVE_VARIANT_IMPL_START(_fx_Nt6option1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t);
   FX_COPY_FP(arg0, &v->u.Some);
   return 0;
}

FX_EXTERN_C int
   _fx_M13K_optim_matopFM4SomeNt6option1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t(
   struct _fx_FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t* arg0,
   struct _fx_Nt6option1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t_data_t** fx_result)
{
   FX_MAKE_RECURSIVE_VARIANT_IMPL_START(_fx_Nt6option1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t);
   FX_COPY_FP(arg0, &v->u.Some);
   return 0;
}

FX_EXTERN_C int
   _fx_M13K_optim_matopFM4SomeNt6option1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t(
   struct _fx_FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t* arg0,
   struct _fx_Nt6option1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t_data_t** fx_result)
{
   FX_MAKE_RECURSIVE_VARIANT_IMPL_START(_fx_Nt6option1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t);
   FX_COPY_FP(arg0, &v->u.Some);
   return 0;
}

FX_EXTERN_C int
   _fx_M13K_optim_matopFM4SomeNt6option1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t(
   struct _fx_FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t* arg0,
   struct _fx_Nt6option1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t_data_t** fx_result)
{
   FX_MAKE_RECURSIVE_VARIANT_IMPL_START(_fx_Nt6option1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t);
   FX_COPY_FP(arg0, &v->u.Some);
   return 0;
}

FX_EXTERN_C void _fx_M13K_optim_matopFM4SomeNt6option1R9Ast__id_t1R9Ast__id_t(
   struct _fx_R9Ast__id_t* arg0,
   struct _fx_Nt6option1R9Ast__id_t* fx_result)
{
   fx_result->tag = 2;
   fx_result->u.Some = *arg0;
}

FX_EXTERN_C int
   _fx_M13K_optim_matopFM1tNt10Hashmap__t2R9Ast__id_tRM17matrix_projection6Rt20Hashmap__hashentry_t2R9Ast__id_tRM17matrix_projectioniiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tRM17matrix_projection(
   struct _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection* arg0,
   int_ arg1,
   int_ arg2,
   int_ arg3,
   fx_arr_t* arg4,
   fx_arr_t* arg5,
   struct _fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t** fx_result)
{
   FX_MAKE_RECURSIVE_VARIANT_IMPL_START(_fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection);
   _fx_copy_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(arg0, &v->u.t.t0);
   v->u.t.t1 = arg1;
   v->u.t.t2 = arg2;
   v->u.t.t3 = arg3;
   fx_copy_arr(arg4, &v->u.t.t4);
   fx_copy_arr(arg5, &v->u.t.t5);
   return 0;
}

FX_EXTERN_C int
   _fx_M13K_optim_matopFM1tNt10Hashmap__t2R9Ast__id_tR9Ast__id_t6Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_tiiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t(
   struct _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t* arg0,
   int_ arg1,
   int_ arg2,
   int_ arg3,
   fx_arr_t* arg4,
   fx_arr_t* arg5,
   struct _fx_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t** fx_result)
{
   FX_MAKE_RECURSIVE_VARIANT_IMPL_START(_fx_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t);
   v->u.t.t0 = *arg0;
   v->u.t.t1 = arg1;
   v->u.t.t2 = arg2;
   v->u.t.t3 = arg3;
   fx_copy_arr(arg4, &v->u.t.t4);
   fx_copy_arr(arg5, &v->u.t.t5);
   return 0;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM5emptyNt10Hashmap__t2R9Ast__id_tRM17matrix_projection3iR9Ast__id_tRM17matrix_projection(
   int_ size0_0,
   struct _fx_R9Ast__id_t* k0_0,
   struct _fx_R32K_optim_matop__matrix_projection* d0_0,
   struct _fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t** fx_result,
   void* fx_fv)
{
   _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection entry0_0 = {0};
   fx_arr_t v_0 = {0};
   fx_arr_t v_1 = {0};
   int fx_status = 0;
   int_ size_0 = 8;
   while (size_0 < size0_0) {
      size_0 = size_0 * 2;
   }
   int_ idxsize_0 = size_0 * 2;
   _fx_make_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(0ULL, k0_0, d0_0, &entry0_0);
   FX_CALL(_fx_M7HashmapFM9makeindexA1i1i(idxsize_0, &v_0, 0), _fx_cleanup);
   _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection* dstptr_0 = 0;
   int_ n_0 = size_0;
   {
      const int_ shape_0[] = { n_0 };
      FX_CALL(
         fx_make_arr(1, shape_0, sizeof(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection),
            (fx_free_t)_fx_free_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection,
            (fx_copy_t)_fx_copy_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection, 0, &v_1), _fx_cleanup);
   }
   dstptr_0 = (_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection*)v_1.data;
   for (int_ i_0 = 0; i_0 < n_0; i_0++, dstptr_0++) {
      _fx_copy_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(&entry0_0, dstptr_0);
   }
   FX_CALL(
      _fx_M13K_optim_matopFM1tNt10Hashmap__t2R9Ast__id_tRM17matrix_projection6Rt20Hashmap__hashentry_t2R9Ast__id_tRM17matrix_projectioniiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tRM17matrix_projection(
         &entry0_0, 0, 0, 0, &v_0, &v_1, fx_result), _fx_cleanup);

_fx_cleanup: ;
   _fx_free_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(&entry0_0);
   FX_FREE_ARR(&v_0);
   FX_FREE_ARR(&v_1);
   return fx_status;
}

FX_EXTERN_C int
   _fx_M13K_optim_matopFM9add_fast_i4iA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tRM17matrix_projectionRt20Hashmap__hashentry_t2R9Ast__id_tRM17matrix_projection(
   int_ tabsz_0,
   fx_arr_t* ht_index_0,
   fx_arr_t* ht_table_0,
   struct _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection* entry_0,
   int_* fx_result,
   void* fx_fv)
{
   fx_exn_t v_0 = {0};
   int fx_status = 0;
   int_ idxsz_0 = FX_ARR_SIZE(*ht_index_0, 0);
   uint64_t hv_0 = entry_0->hv;
   uint64_t perturb_0 = hv_0;
   int_ j_0 = (int_)hv_0 & (idxsz_0 - 1);
   bool found_free_slot_0 = false;
   int_ v_1 = idxsz_0 + 14;
   for (int_ i_0 = 0; i_0 < v_1; i_0++) {
      FX_CHKIDX(FX_CHKIDX1(*ht_index_0, 0, j_0), _fx_catch_0);
      int_ tidx_0 = *FX_PTR_1D(int_, *ht_index_0, j_0);
      if (tidx_0 == 0) {
         FX_CHKIDX(FX_CHKIDX1(*ht_index_0, 0, j_0), _fx_catch_0);
         *FX_PTR_1D(int_, *ht_index_0, j_0) = tabsz_0 + 2;
         FX_CHKIDX(FX_CHKIDX1(*ht_table_0, 0, tabsz_0), _fx_catch_0);
         _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection* v_2 =
            FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection, *ht_table_0, tabsz_0);
         _fx_free_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(v_2);
         _fx_copy_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(entry_0, v_2);
         found_free_slot_0 = true;
         FX_BREAK(_fx_catch_0);
      }
      perturb_0 = perturb_0 >> 5;
      j_0 = (int_)((uint64_t)(j_0 * 5 + 1) + perturb_0) & (idxsz_0 - 1);

   _fx_catch_0: ;
      FX_CHECK_BREAK();
      FX_CHECK_EXN(_fx_cleanup);
   }
   if (!found_free_slot_0) {
      fx_str_t slit_0 = FX_MAKE_STR("cannot insert element (full Hashtable?!)");
      FX_CALL(_fx_F9make_FailE1S(&slit_0, &v_0), _fx_cleanup);
      FX_THROW(&v_0, true, _fx_cleanup);
   }
   *fx_result = tabsz_0 + 1;

_fx_cleanup: ;
   fx_free_exn(&v_0);
   return fx_status;
}

FX_EXTERN_C int
   _fx_M13K_optim_matopFM9add_fast_i4iA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_tRt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t(
   int_ tabsz_0,
   fx_arr_t* ht_index_0,
   fx_arr_t* ht_table_0,
   struct _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t* entry_0,
   int_* fx_result,
   void* fx_fv)
{
   fx_exn_t v_0 = {0};
   int fx_status = 0;
   int_ idxsz_0 = FX_ARR_SIZE(*ht_index_0, 0);
   uint64_t hv_0 = entry_0->hv;
   uint64_t perturb_0 = hv_0;
   int_ j_0 = (int_)hv_0 & (idxsz_0 - 1);
   bool found_free_slot_0 = false;
   int_ v_1 = idxsz_0 + 14;
   for (int_ i_0 = 0; i_0 < v_1; i_0++) {
      FX_CHKIDX(FX_CHKIDX1(*ht_index_0, 0, j_0), _fx_catch_0);
      int_ tidx_0 = *FX_PTR_1D(int_, *ht_index_0, j_0);
      if (tidx_0 == 0) {
         FX_CHKIDX(FX_CHKIDX1(*ht_index_0, 0, j_0), _fx_catch_0);
         *FX_PTR_1D(int_, *ht_index_0, j_0) = tabsz_0 + 2;
         FX_CHKIDX(FX_CHKIDX1(*ht_table_0, 0, tabsz_0), _fx_catch_0);
         *FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t, *ht_table_0, tabsz_0) = *entry_0;
         found_free_slot_0 = true;
         FX_BREAK(_fx_catch_0);
      }
      perturb_0 = perturb_0 >> 5;
      j_0 = (int_)((uint64_t)(j_0 * 5 + 1) + perturb_0) & (idxsz_0 - 1);

   _fx_catch_0: ;
      FX_CHECK_BREAK();
      FX_CHECK_EXN(_fx_cleanup);
   }
   if (!found_free_slot_0) {
      fx_str_t slit_0 = FX_MAKE_STR("cannot insert element (full Hashtable?!)");
      FX_CALL(_fx_F9make_FailE1S(&slit_0, &v_0), _fx_cleanup);
      FX_THROW(&v_0, true, _fx_cleanup);
   }
   *fx_result = tabsz_0 + 1;

_fx_cleanup: ;
   fx_free_exn(&v_0);
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM4growv2Nt10Hashmap__t2R9Ast__id_tRM17matrix_projectioni(
   struct _fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t* self_0,
   int_ new_size_0,
   void* fx_fv)
{
   fx_arr_t ht_table_0 = {0};
   _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection v_0 = {0};
   fx_arr_t new_ht_table_0 = {0};
   fx_arr_t new_ht_index_0 = {0};
   int fx_status = 0;
   fx_copy_arr(&self_0->u.t.t5, &ht_table_0);
   _fx_copy_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(&self_0->u.t.t0, &v_0);
   _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection* dstptr_0 = 0;
   {
      const int_ shape_0[] = { new_size_0 };
      FX_CALL(
         fx_make_arr(1, shape_0, sizeof(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection),
            (fx_free_t)_fx_free_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection,
            (fx_copy_t)_fx_copy_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection, 0, &new_ht_table_0),
         _fx_cleanup);
   }
   dstptr_0 = (_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection*)new_ht_table_0.data;
   for (int_ i_0 = 0; i_0 < new_size_0; i_0++, dstptr_0++) {
      _fx_copy_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(&v_0, dstptr_0);
   }
   FX_CALL(_fx_M7HashmapFM9makeindexA1i1i(new_size_0 * 2, &new_ht_index_0, 0), _fx_cleanup);
   int_ tabsz_0 = 0;
   int_ v_1 = self_0->u.t.t2;
   for (int_ j_0 = 0; j_0 < v_1; j_0++) {
      _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection v_2 = {0};
      FX_CHKIDX(FX_CHKIDX1(ht_table_0, 0, j_0), _fx_catch_0);
      if (FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection, ht_table_0, j_0)->hv <
             9223372036854775808ULL) {
         FX_CHKIDX(FX_CHKIDX1(ht_table_0, 0, j_0), _fx_catch_0);
         _fx_copy_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(
            FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection, ht_table_0, j_0), &v_2);
         int_ v_3;
         FX_CALL(
            _fx_M13K_optim_matopFM9add_fast_i4iA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tRM17matrix_projectionRt20Hashmap__hashentry_t2R9Ast__id_tRM17matrix_projection(
               tabsz_0, &new_ht_index_0, &new_ht_table_0, &v_2, &v_3, 0), _fx_catch_0);
         tabsz_0 = v_3;
      }

   _fx_catch_0: ;
      _fx_free_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(&v_2);
      FX_CHECK_EXN(_fx_cleanup);
   }
   fx_arr_t* v_4 = &self_0->u.t.t4;
   FX_FREE_ARR(v_4);
   fx_copy_arr(&new_ht_index_0, v_4);
   fx_arr_t* v_5 = &self_0->u.t.t5;
   FX_FREE_ARR(v_5);
   fx_copy_arr(&new_ht_table_0, v_5);
   self_0->u.t.t2 = tabsz_0;
   self_0->u.t.t3 = 0;

_fx_cleanup: ;
   FX_FREE_ARR(&ht_table_0);
   _fx_free_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(&v_0);
   FX_FREE_ARR(&new_ht_table_0);
   FX_FREE_ARR(&new_ht_index_0);
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM4growv2Nt10Hashmap__t2R9Ast__id_tR9Ast__id_ti(
   struct _fx_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t* self_0,
   int_ new_size_0,
   void* fx_fv)
{
   fx_arr_t ht_table_0 = {0};
   fx_arr_t new_ht_table_0 = {0};
   fx_arr_t new_ht_index_0 = {0};
   int fx_status = 0;
   fx_copy_arr(&self_0->u.t.t5, &ht_table_0);
   _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t v_0 = self_0->u.t.t0;
   _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t* dstptr_0 = 0;
   {
      const int_ shape_0[] = { new_size_0 };
      FX_CALL(fx_make_arr(1, shape_0, sizeof(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t), 0, 0, 0, &new_ht_table_0),
         _fx_cleanup);
   }
   dstptr_0 = (_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t*)new_ht_table_0.data;
   for (int_ i_0 = 0; i_0 < new_size_0; i_0++, dstptr_0++) {
      *dstptr_0 = v_0;
   }
   FX_CALL(_fx_M7HashmapFM9makeindexA1i1i(new_size_0 * 2, &new_ht_index_0, 0), _fx_cleanup);
   int_ tabsz_0 = 0;
   int_ v_1 = self_0->u.t.t2;
   for (int_ j_0 = 0; j_0 < v_1; j_0++) {
      FX_CHKIDX(FX_CHKIDX1(ht_table_0, 0, j_0), _fx_catch_0);
      if (FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t, ht_table_0, j_0)->hv < 9223372036854775808ULL) {
         FX_CHKIDX(FX_CHKIDX1(ht_table_0, 0, j_0), _fx_catch_0);
         _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t v_2 =
            *FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t, ht_table_0, j_0);
         int_ v_3;
         FX_CALL(
            _fx_M13K_optim_matopFM9add_fast_i4iA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_tRt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t(
               tabsz_0, &new_ht_index_0, &new_ht_table_0, &v_2, &v_3, 0), _fx_catch_0);
         tabsz_0 = v_3;
      }

   _fx_catch_0: ;
      FX_CHECK_EXN(_fx_cleanup);
   }
   fx_arr_t* v_4 = &self_0->u.t.t4;
   FX_FREE_ARR(v_4);
   fx_copy_arr(&new_ht_index_0, v_4);
   fx_arr_t* v_5 = &self_0->u.t.t5;
   FX_FREE_ARR(v_5);
   fx_copy_arr(&new_ht_table_0, v_5);
   self_0->u.t.t2 = tabsz_0;
   self_0->u.t.t3 = 0;

_fx_cleanup: ;
   FX_FREE_ARR(&ht_table_0);
   FX_FREE_ARR(&new_ht_table_0);
   FX_FREE_ARR(&new_ht_index_0);
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM9find_idx_Ta2i2Nt10Hashmap__t2R9Ast__id_tRM17matrix_projectionR9Ast__id_t(
   struct _fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t* self_0,
   struct _fx_R9Ast__id_t* k_0,
   struct _fx_Ta2i* fx_result,
   void* fx_fv)
{
   fx_arr_t v_0 = {0};
   int fx_status = 0;
   uint64_t __fold_result___0 = 14695981039346656037ULL;
   uint64_t h_0 = __fold_result___0 ^ ((uint64_t)k_0->m ^ 14695981039346656037ULL);
   __fold_result___0 = h_0 * 1099511628211ULL;
   uint64_t h_1 = __fold_result___0 ^ ((uint64_t)k_0->i ^ 14695981039346656037ULL);
   __fold_result___0 = h_1 * 1099511628211ULL;
   uint64_t h_2 = __fold_result___0 ^ ((uint64_t)k_0->j ^ 14695981039346656037ULL);
   __fold_result___0 = h_2 * 1099511628211ULL;
   uint64_t hv_0 = __fold_result___0 & 9223372036854775807ULL;
   fx_copy_arr(&self_0->u.t.t4, &v_0);
   int_ idxsz_0 = FX_ARR_SIZE(v_0, 0);
   uint64_t perturb_0 = hv_0;
   int_ found_0 = -1;
   int_ j_0 = (int_)hv_0 & (idxsz_0 - 1);
   int_ v_1 = idxsz_0 + 14;
   for (int_ i_0 = 0; i_0 < v_1; i_0++) {
      _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection entry_0 = {0};
      FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t4, 0, j_0), _fx_catch_0);
      int_ tidx_0 = *FX_PTR_1D(int_, self_0->u.t.t4, j_0);
      if (tidx_0 >= 2) {
         int_ v_2 = tidx_0 - 2;
         FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t5, 0, v_2), _fx_catch_0);
         _fx_copy_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(
            FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection, self_0->u.t.t5, v_2),
            &entry_0);
         bool t_0;
         if (entry_0.hv == hv_0) {
            _fx_R9Ast__id_t v_3 = entry_0.key;
            bool __fold_result___1 = true;
            bool t_1;
            if (v_3.m == k_0->m) {
               t_1 = __fold_result___1;
            }
            else {
               t_1 = false;
            }
            __fold_result___1 = t_1;
            bool t_2;
            if (v_3.i == k_0->i) {
               t_2 = __fold_result___1;
            }
            else {
               t_2 = false;
            }
            __fold_result___1 = t_2;
            bool t_3;
            if (v_3.j == k_0->j) {
               t_3 = __fold_result___1;
            }
            else {
               t_3 = false;
            }
            __fold_result___1 = t_3;
            t_0 = __fold_result___1;
         }
         else {
            t_0 = false;
         }
         if (t_0) {
            found_0 = tidx_0 - 2; FX_BREAK(_fx_catch_0);
         }
      }
      else if (tidx_0 == 0) {
         FX_BREAK(_fx_catch_0);
      }
      perturb_0 = perturb_0 >> 5;
      j_0 = (int_)((uint64_t)(j_0 * 5 + 1) + perturb_0) & (idxsz_0 - 1);

   _fx_catch_0: ;
      _fx_free_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(&entry_0);
      FX_CHECK_BREAK();
      FX_CHECK_EXN(_fx_cleanup);
   }
   _fx_Ta2i tup_0 = { j_0, found_0 };
   *fx_result = tup_0;

_fx_cleanup: ;
   FX_FREE_ARR(&v_0);
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM9find_idx_Ta2i2Nt10Hashmap__t2R9Ast__id_tR9Ast__id_tR9Ast__id_t(
   struct _fx_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t* self_0,
   struct _fx_R9Ast__id_t* k_0,
   struct _fx_Ta2i* fx_result,
   void* fx_fv)
{
   fx_arr_t v_0 = {0};
   int fx_status = 0;
   uint64_t __fold_result___0 = 14695981039346656037ULL;
   uint64_t h_0 = __fold_result___0 ^ ((uint64_t)k_0->m ^ 14695981039346656037ULL);
   __fold_result___0 = h_0 * 1099511628211ULL;
   uint64_t h_1 = __fold_result___0 ^ ((uint64_t)k_0->i ^ 14695981039346656037ULL);
   __fold_result___0 = h_1 * 1099511628211ULL;
   uint64_t h_2 = __fold_result___0 ^ ((uint64_t)k_0->j ^ 14695981039346656037ULL);
   __fold_result___0 = h_2 * 1099511628211ULL;
   uint64_t hv_0 = __fold_result___0 & 9223372036854775807ULL;
   fx_copy_arr(&self_0->u.t.t4, &v_0);
   int_ idxsz_0 = FX_ARR_SIZE(v_0, 0);
   uint64_t perturb_0 = hv_0;
   int_ found_0 = -1;
   int_ j_0 = (int_)hv_0 & (idxsz_0 - 1);
   int_ v_1 = idxsz_0 + 14;
   for (int_ i_0 = 0; i_0 < v_1; i_0++) {
      FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t4, 0, j_0), _fx_catch_0);
      int_ tidx_0 = *FX_PTR_1D(int_, self_0->u.t.t4, j_0);
      if (tidx_0 >= 2) {
         int_ v_2 = tidx_0 - 2;
         FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t5, 0, v_2), _fx_catch_0);
         _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t entry_0 =
            *FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t, self_0->u.t.t5, v_2);
         bool t_0;
         if (entry_0.hv == hv_0) {
            _fx_R9Ast__id_t v_3 = entry_0.key;
            bool __fold_result___1 = true;
            bool t_1;
            if (v_3.m == k_0->m) {
               t_1 = __fold_result___1;
            }
            else {
               t_1 = false;
            }
            __fold_result___1 = t_1;
            bool t_2;
            if (v_3.i == k_0->i) {
               t_2 = __fold_result___1;
            }
            else {
               t_2 = false;
            }
            __fold_result___1 = t_2;
            bool t_3;
            if (v_3.j == k_0->j) {
               t_3 = __fold_result___1;
            }
            else {
               t_3 = false;
            }
            __fold_result___1 = t_3;
            t_0 = __fold_result___1;
         }
         else {
            t_0 = false;
         }
         if (t_0) {
            found_0 = tidx_0 - 2; FX_BREAK(_fx_catch_0);
         }
      }
      else if (tidx_0 == 0) {
         FX_BREAK(_fx_catch_0);
      }
      perturb_0 = perturb_0 >> 5;
      j_0 = (int_)((uint64_t)(j_0 * 5 + 1) + perturb_0) & (idxsz_0 - 1);

   _fx_catch_0: ;
      FX_CHECK_BREAK();
      FX_CHECK_EXN(_fx_cleanup);
   }
   _fx_Ta2i tup_0 = { j_0, found_0 };
   *fx_result = tup_0;

_fx_cleanup: ;
   FX_FREE_ARR(&v_0);
   return fx_status;
}

FX_EXTERN_C int
   _fx_M13K_optim_matopFM8find_optNt6option1RM17matrix_projection2Nt10Hashmap__t2R9Ast__id_tRM17matrix_projectionR9Ast__id_t(
   struct _fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t* self_0,
   struct _fx_R9Ast__id_t* k_0,
   struct _fx_Nt6option1R32K_optim_matop__matrix_projection* fx_result,
   void* fx_fv)
{
   _fx_R32K_optim_matop__matrix_projection v_0 = {0};
   int fx_status = 0;
   _fx_Ta2i v_1;
   FX_CALL(
      _fx_M13K_optim_matopFM9find_idx_Ta2i2Nt10Hashmap__t2R9Ast__id_tRM17matrix_projectionR9Ast__id_t(self_0, k_0, &v_1, 0),
      _fx_cleanup);
   int_ j_0 = v_1.t1;
   if (j_0 >= 0) {
      FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t5, 0, j_0), _fx_cleanup);
      _fx_copy_R32K_optim_matop__matrix_projection(
         &FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection, self_0->u.t.t5, j_0)->data,
         &v_0);
      _fx_M13K_optim_matopFM4SomeNt6option1RM17matrix_projection1RM17matrix_projection(&v_0, fx_result);
   }
   else {
      _fx_copy_Nt6option1R32K_optim_matop__matrix_projection(&_fx_g19K_optim_matop__None, fx_result);
   }

_fx_cleanup: ;
   _fx_free_R32K_optim_matop__matrix_projection(&v_0);
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM18find_idx_or_inserti2Nt10Hashmap__t2R9Ast__id_tRM17matrix_projectionR9Ast__id_t(
   struct _fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t* self_0,
   struct _fx_R9Ast__id_t* k_0,
   int_* fx_result,
   void* fx_fv)
{
   fx_arr_t v_0 = {0};
   fx_arr_t v_1 = {0};
   _fx_R32K_optim_matop__matrix_projection v_2 = {0};
   _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection v_3 = {0};
   fx_exn_t v_4 = {0};
   int fx_status = 0;
   uint64_t __fold_result___0 = 14695981039346656037ULL;
   uint64_t h_0 = __fold_result___0 ^ ((uint64_t)k_0->m ^ 14695981039346656037ULL);
   __fold_result___0 = h_0 * 1099511628211ULL;
   uint64_t h_1 = __fold_result___0 ^ ((uint64_t)k_0->i ^ 14695981039346656037ULL);
   __fold_result___0 = h_1 * 1099511628211ULL;
   uint64_t h_2 = __fold_result___0 ^ ((uint64_t)k_0->j ^ 14695981039346656037ULL);
   __fold_result___0 = h_2 * 1099511628211ULL;
   uint64_t hv_0 = __fold_result___0 & 9223372036854775807ULL;
   fx_copy_arr(&self_0->u.t.t4, &v_0);
   int_ idxsz_0 = FX_ARR_SIZE(v_0, 0);
   if (self_0->u.t.t1 + 1 > idxsz_0 >> 1) {
      while (idxsz_0 < (self_0->u.t.t1 + 1) * 2) {
         idxsz_0 = idxsz_0 * 2;
      }
      FX_CALL(
         _fx_M13K_optim_matopFM4growv2Nt10Hashmap__t2R9Ast__id_tRM17matrix_projectioni(self_0,
            fx_maxi(idxsz_0 / 2, self_0->u.t.t1 + 1), 0), _fx_cleanup);
   }
   uint64_t perturb_0 = hv_0;
   int_ found_0 = -1;
   int_ insert_idx_0 = -1;
   int_ j_0 = (int_)hv_0 & (idxsz_0 - 1);
   int_ v_5 = idxsz_0 + 14;
   for (int_ i_0 = 0; i_0 < v_5; i_0++) {
      _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection entry_0 = {0};
      FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t4, 0, j_0), _fx_catch_0);
      int_ tidx_0 = *FX_PTR_1D(int_, self_0->u.t.t4, j_0);
      if (tidx_0 >= 2) {
         int_ v_6 = tidx_0 - 2;
         FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t5, 0, v_6), _fx_catch_0);
         _fx_copy_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(
            FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection, self_0->u.t.t5, v_6),
            &entry_0);
         bool t_0;
         if (entry_0.hv == hv_0) {
            _fx_R9Ast__id_t v_7 = entry_0.key;
            bool __fold_result___1 = true;
            bool t_1;
            if (v_7.m == k_0->m) {
               t_1 = __fold_result___1;
            }
            else {
               t_1 = false;
            }
            __fold_result___1 = t_1;
            bool t_2;
            if (v_7.i == k_0->i) {
               t_2 = __fold_result___1;
            }
            else {
               t_2 = false;
            }
            __fold_result___1 = t_2;
            bool t_3;
            if (v_7.j == k_0->j) {
               t_3 = __fold_result___1;
            }
            else {
               t_3 = false;
            }
            __fold_result___1 = t_3;
            t_0 = __fold_result___1;
         }
         else {
            t_0 = false;
         }
         if (t_0) {
            found_0 = tidx_0 - 2; FX_BREAK(_fx_catch_0);
         }
      }
      else if (tidx_0 == 0) {
         if (insert_idx_0 < 0) {
            insert_idx_0 = j_0;
         }
         FX_BREAK(_fx_catch_0);
      }
      else {
         bool t_4;
         if (tidx_0 == 1) {
            t_4 = insert_idx_0 < 0;
         }
         else {
            t_4 = false;
         }
         if (t_4) {
            insert_idx_0 = j_0;
         }
      }
      perturb_0 = perturb_0 >> 5;
      j_0 = (int_)((uint64_t)(j_0 * 5 + 1) + perturb_0) & (idxsz_0 - 1);

   _fx_catch_0: ;
      _fx_free_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(&entry_0);
      FX_CHECK_BREAK();
      FX_CHECK_EXN(_fx_cleanup);
   }
   if (found_0 >= 0) {
      bool t_5;
      if (insert_idx_0 >= 0) {
         t_5 = insert_idx_0 != j_0;
      }
      else {
         t_5 = false;
      }
      if (t_5) {
         FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t4, 0, insert_idx_0), _fx_cleanup);
         *FX_PTR_1D(int_, self_0->u.t.t4, insert_idx_0) = found_0 + 2;
         FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t4, 0, j_0), _fx_cleanup);
         *FX_PTR_1D(int_, self_0->u.t.t4, j_0) = 1;
      }
   }
   else if (insert_idx_0 >= 0) {
      found_0 = self_0->u.t.t3 - 1;
      if (found_0 >= 0) {
         FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t5, 0, found_0), _fx_cleanup);
         self_0->u.t.t3 =
            (int_)
               (
                  FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection, self_0->u.t.t5,
                     found_0)->hv & 9223372036854775807ULL);
      }
      else {
         found_0 = self_0->u.t.t2;
         self_0->u.t.t2 = self_0->u.t.t2 + 1;
         fx_copy_arr(&self_0->u.t.t5, &v_1);
         FX_CALL(_fx_F6assertv1B(found_0 < FX_ARR_SIZE(v_1, 0), 0), _fx_cleanup);
      }
      _fx_copy_R32K_optim_matop__matrix_projection(&self_0->u.t.t0.data, &v_2);
      _fx_make_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(hv_0, k_0, &v_2, &v_3);
      FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t5, 0, found_0), _fx_cleanup);
      _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection* v_8 =
         FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection, self_0->u.t.t5, found_0);
      _fx_free_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(v_8);
      _fx_copy_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(&v_3, v_8);
      FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t4, 0, insert_idx_0), _fx_cleanup);
      *FX_PTR_1D(int_, self_0->u.t.t4, insert_idx_0) = found_0 + 2;
      self_0->u.t.t1 = self_0->u.t.t1 + 1;
   }
   else {
      fx_str_t slit_0 = FX_MAKE_STR("cannot insert element (full Hashtable?!)");
      FX_CALL(_fx_F9make_FailE1S(&slit_0, &v_4), _fx_cleanup);
      FX_THROW(&v_4, true, _fx_cleanup);
   }
   *fx_result = found_0;

_fx_cleanup: ;
   FX_FREE_ARR(&v_0);
   FX_FREE_ARR(&v_1);
   _fx_free_R32K_optim_matop__matrix_projection(&v_2);
   _fx_free_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection(&v_3);
   fx_free_exn(&v_4);
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM18find_idx_or_inserti2Nt10Hashmap__t2R9Ast__id_tR9Ast__id_tR9Ast__id_t(
   struct _fx_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t* self_0,
   struct _fx_R9Ast__id_t* k_0,
   int_* fx_result,
   void* fx_fv)
{
   fx_arr_t v_0 = {0};
   fx_arr_t v_1 = {0};
   fx_exn_t v_2 = {0};
   int fx_status = 0;
   uint64_t __fold_result___0 = 14695981039346656037ULL;
   uint64_t h_0 = __fold_result___0 ^ ((uint64_t)k_0->m ^ 14695981039346656037ULL);
   __fold_result___0 = h_0 * 1099511628211ULL;
   uint64_t h_1 = __fold_result___0 ^ ((uint64_t)k_0->i ^ 14695981039346656037ULL);
   __fold_result___0 = h_1 * 1099511628211ULL;
   uint64_t h_2 = __fold_result___0 ^ ((uint64_t)k_0->j ^ 14695981039346656037ULL);
   __fold_result___0 = h_2 * 1099511628211ULL;
   uint64_t hv_0 = __fold_result___0 & 9223372036854775807ULL;
   fx_copy_arr(&self_0->u.t.t4, &v_0);
   int_ idxsz_0 = FX_ARR_SIZE(v_0, 0);
   if (self_0->u.t.t1 + 1 > idxsz_0 >> 1) {
      while (idxsz_0 < (self_0->u.t.t1 + 1) * 2) {
         idxsz_0 = idxsz_0 * 2;
      }
      FX_CALL(
         _fx_M13K_optim_matopFM4growv2Nt10Hashmap__t2R9Ast__id_tR9Ast__id_ti(self_0, fx_maxi(idxsz_0 / 2, self_0->u.t.t1 + 1),
            0), _fx_cleanup);
   }
   uint64_t perturb_0 = hv_0;
   int_ found_0 = -1;
   int_ insert_idx_0 = -1;
   int_ j_0 = (int_)hv_0 & (idxsz_0 - 1);
   int_ v_3 = idxsz_0 + 14;
   for (int_ i_0 = 0; i_0 < v_3; i_0++) {
      FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t4, 0, j_0), _fx_catch_0);
      int_ tidx_0 = *FX_PTR_1D(int_, self_0->u.t.t4, j_0);
      if (tidx_0 >= 2) {
         int_ v_4 = tidx_0 - 2;
         FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t5, 0, v_4), _fx_catch_0);
         _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t entry_0 =
            *FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t, self_0->u.t.t5, v_4);
         bool t_0;
         if (entry_0.hv == hv_0) {
            _fx_R9Ast__id_t v_5 = entry_0.key;
            bool __fold_result___1 = true;
            bool t_1;
            if (v_5.m == k_0->m) {
               t_1 = __fold_result___1;
            }
            else {
               t_1 = false;
            }
            __fold_result___1 = t_1;
            bool t_2;
            if (v_5.i == k_0->i) {
               t_2 = __fold_result___1;
            }
            else {
               t_2 = false;
            }
            __fold_result___1 = t_2;
            bool t_3;
            if (v_5.j == k_0->j) {
               t_3 = __fold_result___1;
            }
            else {
               t_3 = false;
            }
            __fold_result___1 = t_3;
            t_0 = __fold_result___1;
         }
         else {
            t_0 = false;
         }
         if (t_0) {
            found_0 = tidx_0 - 2; FX_BREAK(_fx_catch_0);
         }
      }
      else if (tidx_0 == 0) {
         if (insert_idx_0 < 0) {
            insert_idx_0 = j_0;
         }
         FX_BREAK(_fx_catch_0);
      }
      else {
         bool t_4;
         if (tidx_0 == 1) {
            t_4 = insert_idx_0 < 0;
         }
         else {
            t_4 = false;
         }
         if (t_4) {
            insert_idx_0 = j_0;
         }
      }
      perturb_0 = perturb_0 >> 5;
      j_0 = (int_)((uint64_t)(j_0 * 5 + 1) + perturb_0) & (idxsz_0 - 1);

   _fx_catch_0: ;
      FX_CHECK_BREAK();
      FX_CHECK_EXN(_fx_cleanup);
   }
   if (found_0 >= 0) {
      bool t_5;
      if (insert_idx_0 >= 0) {
         t_5 = insert_idx_0 != j_0;
      }
      else {
         t_5 = false;
      }
      if (t_5) {
         FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t4, 0, insert_idx_0), _fx_cleanup);
         *FX_PTR_1D(int_, self_0->u.t.t4, insert_idx_0) = found_0 + 2;
         FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t4, 0, j_0), _fx_cleanup);
         *FX_PTR_1D(int_, self_0->u.t.t4, j_0) = 1;
      }
   }
   else if (insert_idx_0 >= 0) {
      found_0 = self_0->u.t.t3 - 1;
      if (found_0 >= 0) {
         FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t5, 0, found_0), _fx_cleanup);
         self_0->u.t.t3 =
            (int_)
               (FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t, self_0->u.t.t5, found_0)->hv &
                  9223372036854775807ULL);
      }
      else {
         found_0 = self_0->u.t.t2;
         self_0->u.t.t2 = self_0->u.t.t2 + 1;
         fx_copy_arr(&self_0->u.t.t5, &v_1);
         FX_CALL(_fx_F6assertv1B(found_0 < FX_ARR_SIZE(v_1, 0), 0), _fx_cleanup);
      }
      _fx_R9Ast__id_t v_6 = self_0->u.t.t0.data;
      _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t v_7 = { hv_0, *k_0, v_6 };
      FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t5, 0, found_0), _fx_cleanup);
      *FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t, self_0->u.t.t5, found_0) = v_7;
      FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t4, 0, insert_idx_0), _fx_cleanup);
      *FX_PTR_1D(int_, self_0->u.t.t4, insert_idx_0) = found_0 + 2;
      self_0->u.t.t1 = self_0->u.t.t1 + 1;
   }
   else {
      fx_str_t slit_0 = FX_MAKE_STR("cannot insert element (full Hashtable?!)");
      FX_CALL(_fx_F9make_FailE1S(&slit_0, &v_2), _fx_cleanup);
      FX_THROW(&v_2, true, _fx_cleanup);
   }
   *fx_result = found_0;

_fx_cleanup: ;
   FX_FREE_ARR(&v_0);
   FX_FREE_ARR(&v_1);
   fx_free_exn(&v_2);
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM3addv3Nt10Hashmap__t2R9Ast__id_tRM17matrix_projectionR9Ast__id_tRM17matrix_projection(
   struct _fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t* self_0,
   struct _fx_R9Ast__id_t* k_0,
   struct _fx_R32K_optim_matop__matrix_projection* d_0,
   void* fx_fv)
{
   int fx_status = 0;
   int_ idx_0;
   FX_CALL(
      _fx_M13K_optim_matopFM18find_idx_or_inserti2Nt10Hashmap__t2R9Ast__id_tRM17matrix_projectionR9Ast__id_t(self_0, k_0,
         &idx_0, 0), _fx_cleanup);
   FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t5, 0, idx_0), _fx_cleanup);
   _fx_R32K_optim_matop__matrix_projection* v_0 =
      &FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection, self_0->u.t.t5, idx_0)->data;
   _fx_free_R32K_optim_matop__matrix_projection(v_0);
   _fx_copy_R32K_optim_matop__matrix_projection(d_0, v_0);

_fx_cleanup: ;
   return fx_status;
}

FX_EXTERN_C int
   _fx_M13K_optim_matopFM9add_fast_i4iA1iA1Rt24Hashset__hashset_entry_t1R9Ast__id_tRt24Hashset__hashset_entry_t1R9Ast__id_t(
   int_ tabsz_0,
   fx_arr_t* ht_index_0,
   fx_arr_t* ht_table_0,
   struct _fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t* entry_0,
   int_* fx_result,
   void* fx_fv)
{
   fx_exn_t v_0 = {0};
   int fx_status = 0;
   int_ idxsz_0 = FX_ARR_SIZE(*ht_index_0, 0);
   uint64_t hv_0 = entry_0->hv;
   uint64_t perturb_0 = hv_0;
   int_ j_0 = (int_)hv_0 & (idxsz_0 - 1);
   bool found_free_slot_0 = false;
   int_ v_1 = idxsz_0 + 14;
   for (int_ i_0 = 0; i_0 < v_1; i_0++) {
      FX_CHKIDX(FX_CHKIDX1(*ht_index_0, 0, j_0), _fx_catch_0);
      int_ tidx_0 = *FX_PTR_1D(int_, *ht_index_0, j_0);
      if (tidx_0 == 0) {
         FX_CHKIDX(FX_CHKIDX1(*ht_index_0, 0, j_0), _fx_catch_0);
         *FX_PTR_1D(int_, *ht_index_0, j_0) = tabsz_0 + 2;
         FX_CHKIDX(FX_CHKIDX1(*ht_table_0, 0, tabsz_0), _fx_catch_0);
         *FX_PTR_1D(_fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t, *ht_table_0, tabsz_0) = *entry_0;
         found_free_slot_0 = true;
         FX_BREAK(_fx_catch_0);
      }
      perturb_0 = perturb_0 >> 5;
      j_0 = (int_)((uint64_t)(j_0 * 5 + 1) + perturb_0) & (idxsz_0 - 1);

   _fx_catch_0: ;
      FX_CHECK_BREAK();
      FX_CHECK_EXN(_fx_cleanup);
   }
   if (!found_free_slot_0) {
      fx_str_t slit_0 = FX_MAKE_STR("cannot insert element (full Hashtable?!)");
      FX_CALL(_fx_F9make_FailE1S(&slit_0, &v_0), _fx_cleanup);
      FX_THROW(&v_0, true, _fx_cleanup);
   }
   *fx_result = tabsz_0 + 1;

_fx_cleanup: ;
   fx_free_exn(&v_0);
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM4growv2Nt10Hashset__t1R9Ast__id_ti(
   struct _fx_Nt10Hashset__t1R9Ast__id_t_data_t* self_0,
   int_ new_size_0,
   void* fx_fv)
{
   fx_arr_t ht_table_0 = {0};
   fx_arr_t new_ht_table_0 = {0};
   fx_arr_t new_ht_index_0 = {0};
   int fx_status = 0;
   fx_copy_arr(&self_0->u.t.t5, &ht_table_0);
   _fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t v_0 = self_0->u.t.t0;
   _fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t* dstptr_0 = 0;
   {
      const int_ shape_0[] = { new_size_0 };
      FX_CALL(fx_make_arr(1, shape_0, sizeof(_fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t), 0, 0, 0, &new_ht_table_0),
         _fx_cleanup);
   }
   dstptr_0 = (_fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t*)new_ht_table_0.data;
   for (int_ i_0 = 0; i_0 < new_size_0; i_0++, dstptr_0++) {
      *dstptr_0 = v_0;
   }
   FX_CALL(_fx_M7HashsetFM9makeindexA1i1i(new_size_0 * 2, &new_ht_index_0, 0), _fx_cleanup);
   int_ tabsz_0 = 0;
   int_ v_1 = self_0->u.t.t2;
   for (int_ j_0 = 0; j_0 < v_1; j_0++) {
      FX_CHKIDX(FX_CHKIDX1(ht_table_0, 0, j_0), _fx_catch_0);
      if (FX_PTR_1D(_fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t, ht_table_0, j_0)->hv < 9223372036854775808ULL) {
         FX_CHKIDX(FX_CHKIDX1(ht_table_0, 0, j_0), _fx_catch_0);
         _fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t v_2 =
            *FX_PTR_1D(_fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t, ht_table_0, j_0);
         int_ v_3;
         FX_CALL(
            _fx_M13K_optim_matopFM9add_fast_i4iA1iA1Rt24Hashset__hashset_entry_t1R9Ast__id_tRt24Hashset__hashset_entry_t1R9Ast__id_t(
               tabsz_0, &new_ht_index_0, &new_ht_table_0, &v_2, &v_3, 0), _fx_catch_0);
         tabsz_0 = v_3;
      }

   _fx_catch_0: ;
      FX_CHECK_EXN(_fx_cleanup);
   }
   fx_arr_t* v_4 = &self_0->u.t.t4;
   FX_FREE_ARR(v_4);
   fx_copy_arr(&new_ht_index_0, v_4);
   fx_arr_t* v_5 = &self_0->u.t.t5;
   FX_FREE_ARR(v_5);
   fx_copy_arr(&new_ht_table_0, v_5);
   self_0->u.t.t2 = tabsz_0;
   self_0->u.t.t3 = 0;

_fx_cleanup: ;
   FX_FREE_ARR(&ht_table_0);
   FX_FREE_ARR(&new_ht_table_0);
   FX_FREE_ARR(&new_ht_index_0);
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM9find_idx_Ta2i3Nt10Hashset__t1R9Ast__id_tR9Ast__id_tq(
   struct _fx_Nt10Hashset__t1R9Ast__id_t_data_t* self_0,
   struct _fx_R9Ast__id_t* k_0,
   uint64_t hv_0,
   struct _fx_Ta2i* fx_result,
   void* fx_fv)
{
   fx_arr_t v_0 = {0};
   int fx_status = 0;
   fx_copy_arr(&self_0->u.t.t4, &v_0);
   int_ idxsz_0 = FX_ARR_SIZE(v_0, 0);
   uint64_t perturb_0 = hv_0;
   int_ found_0 = -1;
   int_ j_0 = (int_)hv_0 & (idxsz_0 - 1);
   int_ v_1 = idxsz_0 + 14;
   for (int_ i_0 = 0; i_0 < v_1; i_0++) {
      FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t4, 0, j_0), _fx_catch_0);
      int_ tidx_0 = *FX_PTR_1D(int_, self_0->u.t.t4, j_0);
      if (tidx_0 >= 2) {
         int_ v_2 = tidx_0 - 2;
         FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t5, 0, v_2), _fx_catch_0);
         _fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t entry_0 =
            *FX_PTR_1D(_fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t, self_0->u.t.t5, v_2);
         bool t_0;
         if (entry_0.hv == hv_0) {
            _fx_R9Ast__id_t v_3 = entry_0.key;
            bool __fold_result___0 = true;
            bool t_1;
            if (v_3.m == k_0->m) {
               t_1 = __fold_result___0;
            }
            else {
               t_1 = false;
            }
            __fold_result___0 = t_1;
            bool t_2;
            if (v_3.i == k_0->i) {
               t_2 = __fold_result___0;
            }
            else {
               t_2 = false;
            }
            __fold_result___0 = t_2;
            bool t_3;
            if (v_3.j == k_0->j) {
               t_3 = __fold_result___0;
            }
            else {
               t_3 = false;
            }
            __fold_result___0 = t_3;
            t_0 = __fold_result___0;
         }
         else {
            t_0 = false;
         }
         if (t_0) {
            found_0 = tidx_0 - 2; FX_BREAK(_fx_catch_0);
         }
      }
      else if (tidx_0 == 0) {
         FX_BREAK(_fx_catch_0);
      }
      perturb_0 = perturb_0 >> 5;
      j_0 = (int_)((uint64_t)(j_0 * 5 + 1) + perturb_0) & (idxsz_0 - 1);

   _fx_catch_0: ;
      FX_CHECK_BREAK();
      FX_CHECK_EXN(_fx_cleanup);
   }
   _fx_Ta2i tup_0 = { j_0, found_0 };
   *fx_result = tup_0;

_fx_cleanup: ;
   FX_FREE_ARR(&v_0);
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM3memB2Nt10Hashset__t1R9Ast__id_tR9Ast__id_t(
   struct _fx_Nt10Hashset__t1R9Ast__id_t_data_t* self_0,
   struct _fx_R9Ast__id_t* k_0,
   bool* fx_result,
   void* fx_fv)
{
   int fx_status = 0;
   uint64_t __fold_result___0 = 14695981039346656037ULL;
   uint64_t h_0 = __fold_result___0 ^ ((uint64_t)k_0->m ^ 14695981039346656037ULL);
   __fold_result___0 = h_0 * 1099511628211ULL;
   uint64_t h_1 = __fold_result___0 ^ ((uint64_t)k_0->i ^ 14695981039346656037ULL);
   __fold_result___0 = h_1 * 1099511628211ULL;
   uint64_t h_2 = __fold_result___0 ^ ((uint64_t)k_0->j ^ 14695981039346656037ULL);
   __fold_result___0 = h_2 * 1099511628211ULL;
   _fx_Ta2i v_0;
   FX_CALL(
      _fx_M13K_optim_matopFM9find_idx_Ta2i3Nt10Hashset__t1R9Ast__id_tR9Ast__id_tq(self_0, k_0,
         __fold_result___0 & 9223372036854775807ULL, &v_0, 0), _fx_cleanup);
   *fx_result = v_0.t1 >= 0;

_fx_cleanup: ;
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM4add_v3Nt10Hashset__t1R9Ast__id_tR9Ast__id_tq(
   struct _fx_Nt10Hashset__t1R9Ast__id_t_data_t* self_0,
   struct _fx_R9Ast__id_t* k_0,
   uint64_t hv_0,
   void* fx_fv)
{
   fx_arr_t v_0 = {0};
   fx_arr_t v_1 = {0};
   fx_exn_t v_2 = {0};
   int fx_status = 0;
   fx_copy_arr(&self_0->u.t.t4, &v_0);
   int_ idxsz_0 = FX_ARR_SIZE(v_0, 0);
   if (self_0->u.t.t1 + 1 > idxsz_0 >> 1) {
      while (idxsz_0 < (self_0->u.t.t1 + 1) * 2) {
         idxsz_0 = idxsz_0 * 2;
      }
      FX_CALL(_fx_M13K_optim_matopFM4growv2Nt10Hashset__t1R9Ast__id_ti(self_0, fx_maxi(idxsz_0 / 2, self_0->u.t.t1 + 1), 0),
         _fx_cleanup);
   }
   uint64_t perturb_0 = hv_0;
   int_ found_0 = -1;
   int_ insert_idx_0 = -1;
   int_ j_0 = (int_)hv_0 & (idxsz_0 - 1);
   int_ v_3 = idxsz_0 + 14;
   for (int_ i_0 = 0; i_0 < v_3; i_0++) {
      FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t4, 0, j_0), _fx_catch_0);
      int_ tidx_0 = *FX_PTR_1D(int_, self_0->u.t.t4, j_0);
      if (tidx_0 >= 2) {
         int_ v_4 = tidx_0 - 2;
         FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t5, 0, v_4), _fx_catch_0);
         _fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t entry_0 =
            *FX_PTR_1D(_fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t, self_0->u.t.t5, v_4);
         bool t_0;
         if (entry_0.hv == hv_0) {
            _fx_R9Ast__id_t v_5 = entry_0.key;
            bool __fold_result___0 = true;
            bool t_1;
            if (v_5.m == k_0->m) {
               t_1 = __fold_result___0;
            }
            else {
               t_1 = false;
            }
            __fold_result___0 = t_1;
            bool t_2;
            if (v_5.i == k_0->i) {
               t_2 = __fold_result___0;
            }
            else {
               t_2 = false;
            }
            __fold_result___0 = t_2;
            bool t_3;
            if (v_5.j == k_0->j) {
               t_3 = __fold_result___0;
            }
            else {
               t_3 = false;
            }
            __fold_result___0 = t_3;
            t_0 = __fold_result___0;
         }
         else {
            t_0 = false;
         }
         if (t_0) {
            found_0 = tidx_0 - 2; FX_BREAK(_fx_catch_0);
         }
      }
      else if (tidx_0 == 0) {
         if (insert_idx_0 < 0) {
            insert_idx_0 = j_0;
         }
         FX_BREAK(_fx_catch_0);
      }
      else {
         bool t_4;
         if (tidx_0 == 1) {
            t_4 = insert_idx_0 < 0;
         }
         else {
            t_4 = false;
         }
         if (t_4) {
            insert_idx_0 = j_0;
         }
      }
      perturb_0 = perturb_0 >> 5;
      j_0 = (int_)((uint64_t)(j_0 * 5 + 1) + perturb_0) & (idxsz_0 - 1);

   _fx_catch_0: ;
      FX_CHECK_BREAK();
      FX_CHECK_EXN(_fx_cleanup);
   }
   if (found_0 >= 0) {
      bool t_5;
      if (insert_idx_0 >= 0) {
         t_5 = insert_idx_0 != j_0;
      }
      else {
         t_5 = false;
      }
      if (t_5) {
         FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t4, 0, insert_idx_0), _fx_cleanup);
         *FX_PTR_1D(int_, self_0->u.t.t4, insert_idx_0) = found_0 + 2;
         FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t4, 0, j_0), _fx_cleanup);
         *FX_PTR_1D(int_, self_0->u.t.t4, j_0) = 1;
      }
   }
   else if (insert_idx_0 >= 0) {
      found_0 = self_0->u.t.t3 - 1;
      if (found_0 >= 0) {
         FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t5, 0, found_0), _fx_cleanup);
         self_0->u.t.t3 =
            (int_)
               (FX_PTR_1D(_fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t, self_0->u.t.t5, found_0)->hv & 9223372036854775807ULL);
      }
      else {
         found_0 = self_0->u.t.t2;
         self_0->u.t.t2 = self_0->u.t.t2 + 1;
         fx_copy_arr(&self_0->u.t.t5, &v_1);
         FX_CALL(_fx_F6assertv1B(found_0 < FX_ARR_SIZE(v_1, 0), 0), _fx_cleanup);
      }
      _fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t v_6 = { hv_0, *k_0 };
      FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t5, 0, found_0), _fx_cleanup);
      *FX_PTR_1D(_fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t, self_0->u.t.t5, found_0) = v_6;
      FX_CHKIDX(FX_CHKIDX1(self_0->u.t.t4, 0, insert_idx_0), _fx_cleanup);
      *FX_PTR_1D(int_, self_0->u.t.t4, insert_idx_0) = found_0 + 2;
      self_0->u.t.t1 = self_0->u.t.t1 + 1;
   }
   else {
      fx_str_t slit_0 = FX_MAKE_STR("cannot insert element (full Hashtable?!)");
      FX_CALL(_fx_F9make_FailE1S(&slit_0, &v_2), _fx_cleanup);
      FX_THROW(&v_2, true, _fx_cleanup);
   }

_fx_cleanup: ;
   FX_FREE_ARR(&v_0);
   FX_FREE_ARR(&v_1);
   fx_free_exn(&v_2);
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM15m_pr_transposedRM17matrix_projection1RM17matrix_projection(
   struct _fx_R32K_optim_matop__matrix_projection* target_0,
   struct _fx_R32K_optim_matop__matrix_projection* fx_result,
   void* fx_fv)
{
   int fx_status = 0;
   _fx_make_R32K_optim_matop__matrix_projection(&target_0->original_matrix, &target_0->row_range, &target_0->col_range,
      !target_0->is_transposed, fx_result);
   return fx_status;
}

FX_EXTERN_C int
   _fx_M13K_optim_matopFM12static_checkv4N12Ast__cmpop_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
   struct _fx_N12Ast__cmpop_t* cmp_0,
   struct _fx_N14K_form__atom_t* op1_0,
   struct _fx_N14K_form__atom_t* op2_0,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* ctx_0,
   void* fx_fv)
{
   int fx_status = 0;
   bool res_0;
   if (op1_0->tag == 2) {
      if (op1_0->u.AtomLit.tag == 8) {
         res_0 = true; goto _fx_endmatch_0;
      }
   }
   if (op2_0->tag == 2) {
      if (op2_0->u.AtomLit.tag == 8) {
         res_0 = true; goto _fx_endmatch_0;
      }
   }
   res_0 = false;

_fx_endmatch_0: ;
   FX_CHECK_EXN(_fx_cleanup);
   if (res_0) {
      goto _fx_endmatch_2;
   }
   if (op1_0->tag == 2) {
      if (op2_0->tag == 2) {
         _fx_N13Ast__binary_t v_0 = 0;
         _fx_Nt6option1N14K_form__kexp_t v_1 = {0};
         _fx_R10Ast__loc_t loc_0 = ctx_0->t1;
         FX_CALL(_fx_M3AstFM5OpCmpN13Ast__binary_t1N12Ast__cmpop_t(cmp_0, &v_0), _fx_catch_1);
         FX_CALL(
            _fx_M15K_cfold_dealiasFM9cfold_bopNt6option1N14K_form__kexp_t5N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tN14K_form__ktyp_tR10Ast__loc_t(
               v_0, op1_0, op2_0, _fx_g23K_optim_matop__KTypBool, &loc_0, &v_1, 0), _fx_catch_1);
         if (v_1.tag == 2) {
            _fx_N14K_form__kexp_t v_2 = v_1.u.Some;
            if (FX_REC_VARIANT_TAG(v_2) == 5) {
               _fx_N14K_form__atom_t* v_3 = &v_2->u.KExpAtom.t0;
               if (v_3->tag == 2) {
                  _fx_N14K_form__klit_t* v_4 = &v_3->u.AtomLit;
                  if (v_4->tag == 7) {
                     if (v_4->u.KLitBool == false) {
                        fx_exn_t v_5 = {0};
                        fx_str_t slit_0 = FX_MAKE_STR("Nested subarray limits are inconsistent");
                        FX_CALL(_fx_M3AstFM11compile_errE2RM5loc_tS(&loc_0, &slit_0, &v_5, 0), _fx_catch_0);
                        FX_THROW(&v_5, false, _fx_catch_0);

                     _fx_catch_0: ;
                        fx_free_exn(&v_5);
                        goto _fx_endmatch_1;
                     }
                  }
               }
            }
         }

      _fx_endmatch_1: ;
         FX_CHECK_EXN(_fx_catch_1);

      _fx_catch_1: ;
         _fx_free_Nt6option1N14K_form__kexp_t(&v_1);
         if (v_0) {
            _fx_free_N13Ast__binary_t(&v_0);
         }
         goto _fx_endmatch_2;
      }
   }

_fx_endmatch_2: ;

_fx_cleanup: ;
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM13m_prs2arglistLN14K_form__atom_t2RM17matrix_projectionRM17matrix_projection(
   struct _fx_R32K_optim_matop__matrix_projection* m_pr1_0,
   struct _fx_R32K_optim_matop__matrix_projection* m_pr2_0,
   struct _fx_LN14K_form__atom_t_data_t** fx_result,
   void* fx_fv)
{
   _fx_N14K_form__atom_t rs1_0 = {0};
   _fx_N14K_form__atom_t re1_0 = {0};
   _fx_N14K_form__atom_t rd1_0 = {0};
   _fx_N14K_form__atom_t cs1_0 = {0};
   _fx_N14K_form__atom_t ce1_0 = {0};
   _fx_N14K_form__atom_t cd1_0 = {0};
   _fx_N14K_form__atom_t rs2_0 = {0};
   _fx_N14K_form__atom_t re2_0 = {0};
   _fx_N14K_form__atom_t rd2_0 = {0};
   _fx_N14K_form__atom_t cs2_0 = {0};
   _fx_N14K_form__atom_t ce2_0 = {0};
   _fx_N14K_form__atom_t cd2_0 = {0};
   _fx_N14K_form__atom_t v_0 = {0};
   _fx_N14K_form__klit_t v_1 = {0};
   _fx_N14K_form__atom_t v_2 = {0};
   _fx_N14K_form__atom_t v_3 = {0};
   _fx_N14K_form__klit_t v_4 = {0};
   _fx_N14K_form__atom_t v_5 = {0};
   _fx_LN14K_form__atom_t v_6 = 0;
   int fx_status = 0;
   _fx_Ta3N14K_form__atom_t* v_7 = &m_pr1_0->row_range;
   _fx_copy_N14K_form__atom_t(&v_7->t0, &rs1_0);
   _fx_copy_N14K_form__atom_t(&v_7->t1, &re1_0);
   _fx_copy_N14K_form__atom_t(&v_7->t2, &rd1_0);
   _fx_Ta3N14K_form__atom_t* v_8 = &m_pr1_0->col_range;
   _fx_copy_N14K_form__atom_t(&v_8->t0, &cs1_0);
   _fx_copy_N14K_form__atom_t(&v_8->t1, &ce1_0);
   _fx_copy_N14K_form__atom_t(&v_8->t2, &cd1_0);
   _fx_Ta3N14K_form__atom_t* v_9 = &m_pr2_0->row_range;
   _fx_copy_N14K_form__atom_t(&v_9->t0, &rs2_0);
   _fx_copy_N14K_form__atom_t(&v_9->t1, &re2_0);
   _fx_copy_N14K_form__atom_t(&v_9->t2, &rd2_0);
   _fx_Ta3N14K_form__atom_t* v_10 = &m_pr2_0->col_range;
   _fx_copy_N14K_form__atom_t(&v_10->t0, &cs2_0);
   _fx_copy_N14K_form__atom_t(&v_10->t1, &ce2_0);
   _fx_copy_N14K_form__atom_t(&v_10->t2, &cd2_0);
   _fx_R9Ast__id_t v_11 = m_pr1_0->original_matrix;
   _fx_M6K_formFM6AtomIdN14K_form__atom_t1R9Ast__id_t(&v_11, &v_0);
   _fx_M6K_formFM8KLitBoolN14K_form__klit_t1B(m_pr1_0->is_transposed, &v_1);
   _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_1, &v_2);
   _fx_R9Ast__id_t v_12 = m_pr2_0->original_matrix;
   _fx_M6K_formFM6AtomIdN14K_form__atom_t1R9Ast__id_t(&v_12, &v_3);
   _fx_M6K_formFM8KLitBoolN14K_form__klit_t1B(m_pr2_0->is_transposed, &v_4);
   _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_4, &v_5);
   FX_CALL(_fx_cons_LN14K_form__atom_t(&cd2_0, 0, true, &v_6), _fx_cleanup);
   FX_CALL(_fx_cons_LN14K_form__atom_t(&ce2_0, v_6, false, &v_6), _fx_cleanup);
   FX_CALL(_fx_cons_LN14K_form__atom_t(&cs2_0, v_6, false, &v_6), _fx_cleanup);
   FX_CALL(_fx_cons_LN14K_form__atom_t(&rd2_0, v_6, false, &v_6), _fx_cleanup);
   FX_CALL(_fx_cons_LN14K_form__atom_t(&re2_0, v_6, false, &v_6), _fx_cleanup);
   FX_CALL(_fx_cons_LN14K_form__atom_t(&rs2_0, v_6, false, &v_6), _fx_cleanup);
   FX_CALL(_fx_cons_LN14K_form__atom_t(&v_5, v_6, false, &v_6), _fx_cleanup);
   FX_CALL(_fx_cons_LN14K_form__atom_t(&v_3, v_6, false, &v_6), _fx_cleanup);
   FX_CALL(_fx_cons_LN14K_form__atom_t(&cd1_0, v_6, false, &v_6), _fx_cleanup);
   FX_CALL(_fx_cons_LN14K_form__atom_t(&ce1_0, v_6, false, &v_6), _fx_cleanup);
   FX_CALL(_fx_cons_LN14K_form__atom_t(&cs1_0, v_6, false, &v_6), _fx_cleanup);
   FX_CALL(_fx_cons_LN14K_form__atom_t(&rd1_0, v_6, false, &v_6), _fx_cleanup);
   FX_CALL(_fx_cons_LN14K_form__atom_t(&re1_0, v_6, false, &v_6), _fx_cleanup);
   FX_CALL(_fx_cons_LN14K_form__atom_t(&rs1_0, v_6, false, &v_6), _fx_cleanup);
   FX_CALL(_fx_cons_LN14K_form__atom_t(&v_2, v_6, false, &v_6), _fx_cleanup);
   FX_CALL(_fx_cons_LN14K_form__atom_t(&v_0, v_6, true, fx_result), _fx_cleanup);

_fx_cleanup: ;
   _fx_free_N14K_form__atom_t(&rs1_0);
   _fx_free_N14K_form__atom_t(&re1_0);
   _fx_free_N14K_form__atom_t(&rd1_0);
   _fx_free_N14K_form__atom_t(&cs1_0);
   _fx_free_N14K_form__atom_t(&ce1_0);
   _fx_free_N14K_form__atom_t(&cd1_0);
   _fx_free_N14K_form__atom_t(&rs2_0);
   _fx_free_N14K_form__atom_t(&re2_0);
   _fx_free_N14K_form__atom_t(&rd2_0);
   _fx_free_N14K_form__atom_t(&cs2_0);
   _fx_free_N14K_form__atom_t(&ce2_0);
   _fx_free_N14K_form__atom_t(&cd2_0);
   _fx_free_N14K_form__atom_t(&v_0);
   _fx_free_N14K_form__klit_t(&v_1);
   _fx_free_N14K_form__atom_t(&v_2);
   _fx_free_N14K_form__atom_t(&v_3);
   _fx_free_N14K_form__klit_t(&v_4);
   _fx_free_N14K_form__atom_t(&v_5);
   if (v_6) {
      _fx_free_LN14K_form__atom_t(&v_6);
   }
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM13arglist2m_prsTa2RM17matrix_projection2LN14K_form__atom_tR10Ast__loc_t(
   struct _fx_LN14K_form__atom_t_data_t* arglist_0,
   struct _fx_R10Ast__loc_t* loc_0,
   struct _fx_Ta2R32K_optim_matop__matrix_projection* fx_result,
   void* fx_fv)
{
   int fx_status = 0;
   if (arglist_0 != 0) {
      _fx_LN14K_form__atom_t v_0 = arglist_0->tl;
      if (v_0 != 0) {
         _fx_LN14K_form__atom_t v_1 = v_0->tl;
         if (v_1 != 0) {
            _fx_LN14K_form__atom_t v_2 = v_1->tl;
            if (v_2 != 0) {
               _fx_LN14K_form__atom_t v_3 = v_2->tl;
               if (v_3 != 0) {
                  _fx_LN14K_form__atom_t v_4 = v_3->tl;
                  if (v_4 != 0) {
                     _fx_LN14K_form__atom_t v_5 = v_4->tl;
                     if (v_5 != 0) {
                        _fx_LN14K_form__atom_t v_6 = v_5->tl;
                        if (v_6 != 0) {
                           _fx_LN14K_form__atom_t v_7 = v_6->tl;
                           if (v_7 != 0) {
                              _fx_LN14K_form__atom_t v_8 = v_7->tl;
                              if (v_8 != 0) {
                                 _fx_LN14K_form__atom_t v_9 = v_8->tl;
                                 if (v_9 != 0) {
                                    _fx_LN14K_form__atom_t v_10 = v_9->tl;
                                    if (v_10 != 0) {
                                       _fx_LN14K_form__atom_t v_11 = v_10->tl;
                                       if (v_11 != 0) {
                                          _fx_LN14K_form__atom_t v_12 = v_11->tl;
                                          if (v_12 != 0) {
                                             _fx_LN14K_form__atom_t v_13 = v_12->tl;
                                             if (v_13 != 0) {
                                                _fx_LN14K_form__atom_t v_14 = v_13->tl;
                                                if (v_14 != 0) {
                                                   if (v_14->tl == 0) {
                                                      _fx_N14K_form__atom_t* v_15 = &v_8->hd;
                                                      if (v_15->tag == 2) {
                                                         _fx_N14K_form__klit_t* v_16 = &v_15->u.AtomLit;
                                                         if (v_16->tag == 7) {
                                                            _fx_N14K_form__atom_t* v_17 = &v_7->hd;
                                                            if (v_17->tag == 1) {
                                                               _fx_N14K_form__atom_t* v_18 = &v_0->hd;
                                                               if (v_18->tag == 2) {
                                                                  _fx_N14K_form__klit_t* v_19 = &v_18->u.AtomLit;
                                                                  if (v_19->tag == 7) {
                                                                     _fx_N14K_form__atom_t* v_20 = &arglist_0->hd;
                                                                     if (v_20->tag == 1) {
                                                                        _fx_Ta3N14K_form__atom_t v_21 = {0};
                                                                        _fx_Ta3N14K_form__atom_t v_22 = {0};
                                                                        _fx_R32K_optim_matop__matrix_projection m_pr1_0 = {0};
                                                                        _fx_Ta3N14K_form__atom_t v_23 = {0};
                                                                        _fx_Ta3N14K_form__atom_t v_24 = {0};
                                                                        _fx_R32K_optim_matop__matrix_projection m_pr2_0 = {0};
                                                                        _fx_make_Ta3N14K_form__atom_t(&v_1->hd, &v_2->hd,
                                                                           &v_3->hd, &v_21);
                                                                        _fx_make_Ta3N14K_form__atom_t(&v_4->hd, &v_5->hd,
                                                                           &v_6->hd, &v_22);
                                                                        _fx_make_R32K_optim_matop__matrix_projection(
                                                                           &v_20->u.AtomId, &v_21, &v_22, v_19->u.KLitBool,
                                                                           &m_pr1_0);
                                                                        _fx_make_Ta3N14K_form__atom_t(&v_9->hd, &v_10->hd,
                                                                           &v_11->hd, &v_23);
                                                                        _fx_make_Ta3N14K_form__atom_t(&v_12->hd, &v_13->hd,
                                                                           &v_14->hd, &v_24);
                                                                        _fx_make_R32K_optim_matop__matrix_projection(
                                                                           &v_17->u.AtomId, &v_23, &v_24, v_16->u.KLitBool,
                                                                           &m_pr2_0);
                                                                        _fx_make_Ta2R32K_optim_matop__matrix_projection(
                                                                           &m_pr1_0, &m_pr2_0, fx_result);
                                                                        _fx_free_R32K_optim_matop__matrix_projection(&m_pr2_0);
                                                                        _fx_free_Ta3N14K_form__atom_t(&v_24);
                                                                        _fx_free_Ta3N14K_form__atom_t(&v_23);
                                                                        _fx_free_R32K_optim_matop__matrix_projection(&m_pr1_0);
                                                                        _fx_free_Ta3N14K_form__atom_t(&v_22);
                                                                        _fx_free_Ta3N14K_form__atom_t(&v_21);
                                                                        goto _fx_endmatch_0;
                                                                     }
                                                                  }
                                                               }
                                                            }
                                                         }
                                                      }
                                                   }
                                                }
                                             }
                                          }
                                       }
                                    }
                                 }
                              }
                           }
                        }
                     }
                  }
               }
            }
         }
      }
   }
   fx_exn_t v_25 = {0};
   fx_str_t slit_0 = FX_MAKE_STR("IntrinGEMM has wrong arguments");
   FX_CALL(_fx_M3AstFM11compile_errE2RM5loc_tS(loc_0, &slit_0, &v_25, 0), _fx_catch_0);
   FX_THROW(&v_25, false, _fx_catch_0);

_fx_catch_0: ;
   fx_free_exn(&v_25);

_fx_endmatch_0: ;
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM18fold_matrdep_atom_v3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t(
   struct _fx_N14K_form__atom_t* a_0,
   struct _fx_R10Ast__loc_t* loc_0,
   struct _fx_R22K_form__k_fold_callb_t* callb_0,
   void* fx_fv)
{
   int fx_status = 0;
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM18fold_matrdep_ktyp_v3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t(
   struct _fx_N14K_form__ktyp_t_data_t* t_0,
   struct _fx_R10Ast__loc_t* loc_0,
   struct _fx_R22K_form__k_fold_callb_t* callb_0,
   void* fx_fv)
{
   int fx_status = 0;
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM9opg_atom_N14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t(
   struct _fx_N14K_form__atom_t* a_0,
   struct _fx_R10Ast__loc_t* loc_0,
   struct _fx_R17K_form__k_callb_t* callb_0,
   struct _fx_N14K_form__atom_t* fx_result,
   void* fx_fv)
{
   int fx_status = 0;
   _fx_copy_N14K_form__atom_t(a_0, fx_result);
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM9opg_ktyp_N14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t(
   struct _fx_N14K_form__ktyp_t_data_t* t_0,
   struct _fx_R10Ast__loc_t* loc_0,
   struct _fx_R17K_form__k_callb_t* callb_0,
   struct _fx_N14K_form__ktyp_t_data_t** fx_result,
   void* fx_fv)
{
   int fx_status = 0;
   FX_COPY_PTR(t_0, fx_result);
   return fx_status;
}

FX_EXTERN_C int _fx_M13K_optim_matopFM13optimize_gemmLR17K_form__kmodule_t1LR17K_form__kmodule_t(
   struct _fx_LR17K_form__kmodule_t_data_t* kmods_0,
   struct _fx_LR17K_form__kmodule_t_data_t** fx_result,
   void* fx_fv)
{
   _fx_ri curr_m_idx_ref_0 = 0;
   _fx_Nt10Hashset__t1R9Ast__id_t involved_matrixes_arg_0 = 0;
   _fx_rNt10Hashset__t1R9Ast__id_t involved_matrixes_ref_0 = 0;
   _fx_N14K_form__klit_t v_0 = {0};
   _fx_N14K_form__atom_t v_1 = {0};
   _fx_N14K_form__klit_t v_2 = {0};
   _fx_N14K_form__atom_t v_3 = {0};
   _fx_N14K_form__klit_t v_4 = {0};
   _fx_N14K_form__atom_t v_5 = {0};
   _fx_Ta3N14K_form__atom_t v_6 = {0};
   _fx_N14K_form__klit_t v_7 = {0};
   _fx_N14K_form__atom_t v_8 = {0};
   _fx_N14K_form__klit_t v_9 = {0};
   _fx_N14K_form__atom_t v_10 = {0};
   _fx_N14K_form__klit_t v_11 = {0};
   _fx_N14K_form__atom_t v_12 = {0};
   _fx_Ta3N14K_form__atom_t v_13 = {0};
   _fx_R32K_optim_matop__matrix_projection v_14 = {0};
   _fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection mat_proj_map_arg_0 = 0;
   _fx_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection mat_proj_map_ref_0 = 0;
   _fx_FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t opg_kexp__0 = {0};
   _fx_FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t opg_ktyp__0 = {0};
   _fx_Nt6option1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t v_15 = 0;
   _fx_Nt6option1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t v_16 = 0;
   _fx_FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t opg_atom__0 = {0};
   _fx_Nt6option1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t v_17 = 0;
   _fx_R17K_form__k_callb_t cfd_callb_0 = {0};
   int fx_status = 0;
   FX_CALL(_fx_make_ri(-1, &curr_m_idx_ref_0), _fx_cleanup);
   FX_CALL(_fx_M3AstFM16empty_id_hashsetNt10Hashset__t1RM4id_t1i(256, &involved_matrixes_arg_0, 0), _fx_cleanup);
   FX_CALL(_fx_make_rNt10Hashset__t1R9Ast__id_t(involved_matrixes_arg_0, &involved_matrixes_ref_0), _fx_cleanup);
   _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid, &v_0);
   _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_0, &v_1);
   _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid, &v_2);
   _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_2, &v_3);
   _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid, &v_4);
   _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_4, &v_5);
   _fx_make_Ta3N14K_form__atom_t(&v_1, &v_3, &v_5, &v_6);
   _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid, &v_7);
   _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_7, &v_8);
   _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid, &v_9);
   _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_9, &v_10);
   _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid, &v_11);
   _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_11, &v_12);
   _fx_make_Ta3N14K_form__atom_t(&v_8, &v_10, &v_12, &v_13);
   _fx_make_R32K_optim_matop__matrix_projection(&_fx_g9Ast__noid, &v_6, &v_13, false, &v_14);
   FX_CALL(
      _fx_M13K_optim_matopFM5emptyNt10Hashmap__t2R9Ast__id_tRM17matrix_projection3iR9Ast__id_tRM17matrix_projection(1024,
         &_fx_g9Ast__noid, &v_14, &mat_proj_map_arg_0, 0), _fx_cleanup);
   FX_CALL(_fx_make_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection(mat_proj_map_arg_0, &mat_proj_map_ref_0),
      _fx_cleanup);
   _fx_M13K_optim_matopFM7make_fpFPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t3rirNt10Hashset__t1R9Ast__id_trNt10Hashmap__t2R9Ast__id_tRM17matrix_projection(
      curr_m_idx_ref_0, involved_matrixes_ref_0, mat_proj_map_ref_0, &opg_kexp__0);
   _fx_FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t opg_ktyp__fp_0 =
      { _fx_M13K_optim_matopFM9opg_ktyp_N14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t, 0 };
   FX_COPY_FP(&opg_ktyp__fp_0, &opg_ktyp__0);
   FX_CALL(
      _fx_M13K_optim_matopFM4SomeNt6option1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t(
         &opg_ktyp__0, &v_15), _fx_cleanup);
   FX_CALL(
      _fx_M13K_optim_matopFM4SomeNt6option1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t(
         &opg_kexp__0, &v_16), _fx_cleanup);
   _fx_FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t opg_atom__fp_0 =
      { _fx_M13K_optim_matopFM9opg_atom_N14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t, 0 };
   FX_COPY_FP(&opg_atom__fp_0, &opg_atom__0);
   FX_CALL(
      _fx_M13K_optim_matopFM4SomeNt6option1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t(
         &opg_atom__0, &v_17), _fx_cleanup);
   _fx_make_R17K_form__k_callb_t(v_15, v_16, v_17, &cfd_callb_0);
   _fx_LR17K_form__kmodule_t lstend_0 = 0;
   _fx_LR17K_form__kmodule_t lst_0 = kmods_0;
   for (; lst_0; lst_0 = lst_0->tl) {
      _fx_LN14K_form__kexp_t top_code_0 = 0;
      _fx_LN14K_form__kexp_t top_code_1 = 0;
      _fx_R17K_form__kmodule_t rec_0 = {0};
      _fx_R17K_form__kmodule_t* km_0 = &lst_0->hd;
      FX_COPY_PTR(km_0->km_top, &top_code_0);
      int_ km_idx_0 = km_0->km_idx;
      curr_m_idx_ref_0->data = km_idx_0;
      FX_CALL(
         _fx_M13K_optim_matopFM22form_involved_matrixesv2LN14K_form__kexp_trNt10Hashset__t1R9Ast__id_t(top_code_0,
            involved_matrixes_ref_0, 0), _fx_catch_1);
      _fx_LN14K_form__kexp_t lstend_1 = 0;
      _fx_LN14K_form__kexp_t lst_1 = top_code_0;
      for (; lst_1; lst_1 = lst_1->tl) {
         _fx_N14K_form__kexp_t res_0 = 0;
         _fx_N14K_form__kexp_t e_0 = lst_1->hd;
         FX_CALL(opg_kexp__0.fp(e_0, &cfd_callb_0, &res_0, opg_kexp__0.fcv), _fx_catch_0);
         _fx_LN14K_form__kexp_t node_0 = 0;
         FX_CALL(_fx_cons_LN14K_form__kexp_t(res_0, 0, false, &node_0), _fx_catch_0);
         FX_LIST_APPEND(top_code_1, lstend_1, node_0);

      _fx_catch_0: ;
         if (res_0) {
            _fx_free_N14K_form__kexp_t(&res_0);
         }
         FX_CHECK_EXN(_fx_catch_1);
      }
      _fx_make_R17K_form__kmodule_t(&km_0->km_name, km_0->km_idx, km_0->km_toposort_idx, &km_0->km_cname, top_code_1,
         km_0->km_deps, km_0->km_skip, km_0->km_main, &km_0->km_pragmas, &rec_0);
      _fx_LR17K_form__kmodule_t node_1 = 0;
      FX_CALL(_fx_cons_LR17K_form__kmodule_t(&rec_0, 0, false, &node_1), _fx_catch_1);
      FX_LIST_APPEND(*fx_result, lstend_0, node_1);

   _fx_catch_1: ;
      _fx_free_R17K_form__kmodule_t(&rec_0);
      if (top_code_1) {
         _fx_free_LN14K_form__kexp_t(&top_code_1);
      }
      if (top_code_0) {
         _fx_free_LN14K_form__kexp_t(&top_code_0);
      }
      FX_CHECK_EXN(_fx_cleanup);
   }

_fx_cleanup: ;
   FX_FREE_REF_SIMPLE(&curr_m_idx_ref_0);
   if (involved_matrixes_arg_0) {
      _fx_free_Nt10Hashset__t1R9Ast__id_t(&involved_matrixes_arg_0);
   }
   if (involved_matrixes_ref_0) {
      _fx_free_rNt10Hashset__t1R9Ast__id_t(&involved_matrixes_ref_0);
   }
   _fx_free_N14K_form__klit_t(&v_0);
   _fx_free_N14K_form__atom_t(&v_1);
   _fx_free_N14K_form__klit_t(&v_2);
   _fx_free_N14K_form__atom_t(&v_3);
   _fx_free_N14K_form__klit_t(&v_4);
   _fx_free_N14K_form__atom_t(&v_5);
   _fx_free_Ta3N14K_form__atom_t(&v_6);
   _fx_free_N14K_form__klit_t(&v_7);
   _fx_free_N14K_form__atom_t(&v_8);
   _fx_free_N14K_form__klit_t(&v_9);
   _fx_free_N14K_form__atom_t(&v_10);
   _fx_free_N14K_form__klit_t(&v_11);
   _fx_free_N14K_form__atom_t(&v_12);
   _fx_free_Ta3N14K_form__atom_t(&v_13);
   _fx_free_R32K_optim_matop__matrix_projection(&v_14);
   if (mat_proj_map_arg_0) {
      _fx_free_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection(&mat_proj_map_arg_0);
   }
   if (mat_proj_map_ref_0) {
      _fx_free_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection(&mat_proj_map_ref_0);
   }
   FX_FREE_FP(&opg_kexp__0);
   FX_FREE_FP(&opg_ktyp__0);
   if (v_15) {
      _fx_free_Nt6option1FPN14K_form__ktyp_t3N14K_form__ktyp_tR10Ast__loc_tR17K_form__k_callb_t(&v_15);
   }
   if (v_16) {
      _fx_free_Nt6option1FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t(&v_16);
   }
   FX_FREE_FP(&opg_atom__0);
   if (v_17) {
      _fx_free_Nt6option1FPN14K_form__atom_t3N14K_form__atom_tR10Ast__loc_tR17K_form__k_callb_t(&v_17);
   }
   _fx_free_R17K_form__k_callb_t(&cfd_callb_0);
   return fx_status;
}

static int
   _fx_M13K_optim_matopFM11m_pr_slicedT2RM17matrix_projectionLN14K_form__kexp_t6RM17matrix_projectionTa3N14K_form__atom_tTa3N14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_tLN14K_form__kexp_tri(
   struct _fx_R32K_optim_matop__matrix_projection* target_0,
   struct _fx_Ta3N14K_form__atom_t* row_range_0,
   struct _fx_Ta3N14K_form__atom_t* col_range_0,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* ctx_0,
   struct _fx_LN14K_form__kexp_t_data_t* code_0,
   struct _fx_ri_data_t* curr_m_idx_ref_0,
   struct _fx_T2R32K_optim_matop__matrix_projectionLN14K_form__kexp_t* fx_result,
   void* fx_fv)
{
   _fx_Ta2Ta3N14K_form__atom_t v_0 = {0};
   _fx_Ta3N14K_form__atom_t row_range_1 = {0};
   _fx_Ta3N14K_form__atom_t col_range_1 = {0};
   _fx_N14K_form__atom_t rsn_0 = {0};
   _fx_N14K_form__atom_t ren_0 = {0};
   _fx_N14K_form__atom_t rdn_0 = {0};
   _fx_N14K_form__atom_t csn_0 = {0};
   _fx_N14K_form__atom_t cen_0 = {0};
   _fx_N14K_form__atom_t cdn_0 = {0};
   _fx_Ta3N14K_form__atom_t v_1 = {0};
   _fx_T2N14K_form__atom_tLN14K_form__kexp_t v_2 = {0};
   _fx_N14K_form__atom_t rs_0 = {0};
   _fx_LN14K_form__kexp_t code_1 = 0;
   _fx_Ta3N14K_form__atom_t v_3 = {0};
   _fx_T2N14K_form__atom_tLN14K_form__kexp_t v_4 = {0};
   _fx_N14K_form__atom_t re_0 = {0};
   _fx_LN14K_form__kexp_t code_2 = 0;
   _fx_Ta3N14K_form__atom_t v_5 = {0};
   _fx_N14K_form__klit_t v_6 = {0};
   _fx_N14K_form__atom_t v_7 = {0};
   _fx_N14K_form__atom_t delta_0 = {0};
   _fx_T2N14K_form__atom_tLN14K_form__kexp_t v_8 = {0};
   _fx_N14K_form__atom_t rd_0 = {0};
   _fx_LN14K_form__kexp_t code_3 = 0;
   _fx_Ta3N14K_form__atom_t v_9 = {0};
   _fx_T2N14K_form__atom_tLN14K_form__kexp_t v_10 = {0};
   _fx_N14K_form__atom_t cs_0 = {0};
   _fx_LN14K_form__kexp_t code_4 = 0;
   _fx_Ta3N14K_form__atom_t v_11 = {0};
   _fx_T2N14K_form__atom_tLN14K_form__kexp_t v_12 = {0};
   _fx_N14K_form__atom_t ce_0 = {0};
   _fx_LN14K_form__kexp_t code_5 = 0;
   _fx_Ta3N14K_form__atom_t v_13 = {0};
   _fx_N14K_form__klit_t v_14 = {0};
   _fx_N14K_form__atom_t v_15 = {0};
   _fx_N14K_form__atom_t delta_1 = {0};
   _fx_T2N14K_form__atom_tLN14K_form__kexp_t v_16 = {0};
   _fx_N14K_form__atom_t cd_0 = {0};
   _fx_LN14K_form__kexp_t code_6 = 0;
   _fx_Ta3N14K_form__atom_t new_row_range_0 = {0};
   _fx_Ta3N14K_form__atom_t new_col_range_0 = {0};
   _fx_R32K_optim_matop__matrix_projection new_target_0 = {0};
   int fx_status = 0;
   if (target_0->is_transposed) {
      _fx_make_Ta2Ta3N14K_form__atom_t(col_range_0, row_range_0, &v_0);
   }
   else {
      _fx_make_Ta2Ta3N14K_form__atom_t(row_range_0, col_range_0, &v_0);
   }
   _fx_copy_Ta3N14K_form__atom_t(&v_0.t0, &row_range_1);
   _fx_copy_Ta3N14K_form__atom_t(&v_0.t1, &col_range_1);
   _fx_copy_N14K_form__atom_t(&row_range_1.t0, &rsn_0);
   _fx_copy_N14K_form__atom_t(&row_range_1.t1, &ren_0);
   _fx_copy_N14K_form__atom_t(&row_range_1.t2, &rdn_0);
   _fx_copy_N14K_form__atom_t(&col_range_1.t0, &csn_0);
   _fx_copy_N14K_form__atom_t(&col_range_1.t1, &cen_0);
   _fx_copy_N14K_form__atom_t(&col_range_1.t2, &cdn_0);
   _fx_copy_Ta3N14K_form__atom_t(&target_0->row_range, &v_1);
   FX_CALL(
      _fx_M13K_optim_matopFM13juxtapose_idxT2N14K_form__atom_tLN14K_form__kexp_t6Ta3N14K_form__atom_tN14K_form__atom_tBLN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_tri(
         &v_1, &rsn_0, false, code_0, ctx_0, curr_m_idx_ref_0, &v_2, 0), _fx_cleanup);
   _fx_copy_N14K_form__atom_t(&v_2.t0, &rs_0);
   FX_COPY_PTR(v_2.t1, &code_1);
   _fx_copy_Ta3N14K_form__atom_t(&target_0->row_range, &v_3);
   FX_CALL(
      _fx_M13K_optim_matopFM13juxtapose_idxT2N14K_form__atom_tLN14K_form__kexp_t6Ta3N14K_form__atom_tN14K_form__atom_tBLN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_tri(
         &v_3, &ren_0, true, code_1, ctx_0, curr_m_idx_ref_0, &v_4, 0), _fx_cleanup);
   _fx_copy_N14K_form__atom_t(&v_4.t0, &re_0);
   FX_COPY_PTR(v_4.t1, &code_2);
   _fx_copy_Ta3N14K_form__atom_t(&target_0->row_range, &v_5);
   _fx_M6K_formFM7KLitIntN14K_form__klit_t1l(0LL, &v_6);
   _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_6, &v_7);
   FX_CALL(
      _fx_M13K_optim_matopFM12static_checkv4N12Ast__cmpop_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
         &_fx_g20K_optim_matop__CmpLE, &v_7, &rdn_0, ctx_0, 0), _fx_cleanup);
   _fx_copy_N14K_form__atom_t(&v_5.t2, &delta_0);
   if (rdn_0.tag == 2) {
      if (rdn_0.u.AtomLit.tag == 8) {
         _fx_make_T2N14K_form__atom_tLN14K_form__kexp_t(&delta_0, code_2, &v_8); goto _fx_endmatch_0;
      }
   }
   if (delta_0.tag == 2) {
      if (delta_0.u.AtomLit.tag == 8) {
         _fx_make_T2N14K_form__atom_tLN14K_form__kexp_t(&rdn_0, code_2, &v_8); goto _fx_endmatch_0;
      }
   }
   FX_CALL(
      _fx_M13K_optim_matopFM16constriction_bopT2N14K_form__atom_tLN14K_form__kexp_t6N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_tLN14K_form__kexp_tri(
         _fx_g20K_optim_matop__OpMul, &rdn_0, &delta_0, ctx_0, code_2, curr_m_idx_ref_0, &v_8, 0), _fx_catch_0);

_fx_catch_0: ;

_fx_endmatch_0: ;
   FX_CHECK_EXN(_fx_cleanup);
   _fx_copy_N14K_form__atom_t(&v_8.t0, &rd_0);
   FX_COPY_PTR(v_8.t1, &code_3);
   _fx_copy_Ta3N14K_form__atom_t(&target_0->col_range, &v_9);
   FX_CALL(
      _fx_M13K_optim_matopFM13juxtapose_idxT2N14K_form__atom_tLN14K_form__kexp_t6Ta3N14K_form__atom_tN14K_form__atom_tBLN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_tri(
         &v_9, &csn_0, false, code_3, ctx_0, curr_m_idx_ref_0, &v_10, 0), _fx_cleanup);
   _fx_copy_N14K_form__atom_t(&v_10.t0, &cs_0);
   FX_COPY_PTR(v_10.t1, &code_4);
   _fx_copy_Ta3N14K_form__atom_t(&target_0->col_range, &v_11);
   FX_CALL(
      _fx_M13K_optim_matopFM13juxtapose_idxT2N14K_form__atom_tLN14K_form__kexp_t6Ta3N14K_form__atom_tN14K_form__atom_tBLN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_tri(
         &v_11, &cen_0, true, code_4, ctx_0, curr_m_idx_ref_0, &v_12, 0), _fx_cleanup);
   _fx_copy_N14K_form__atom_t(&v_12.t0, &ce_0);
   FX_COPY_PTR(v_12.t1, &code_5);
   _fx_copy_Ta3N14K_form__atom_t(&target_0->col_range, &v_13);
   _fx_M6K_formFM7KLitIntN14K_form__klit_t1l(0LL, &v_14);
   _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_14, &v_15);
   FX_CALL(
      _fx_M13K_optim_matopFM12static_checkv4N12Ast__cmpop_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
         &_fx_g20K_optim_matop__CmpLE, &v_15, &cdn_0, ctx_0, 0), _fx_cleanup);
   _fx_copy_N14K_form__atom_t(&v_13.t2, &delta_1);
   if (cdn_0.tag == 2) {
      if (cdn_0.u.AtomLit.tag == 8) {
         _fx_make_T2N14K_form__atom_tLN14K_form__kexp_t(&delta_1, code_5, &v_16); goto _fx_endmatch_1;
      }
   }
   if (delta_1.tag == 2) {
      if (delta_1.u.AtomLit.tag == 8) {
         _fx_make_T2N14K_form__atom_tLN14K_form__kexp_t(&cdn_0, code_5, &v_16); goto _fx_endmatch_1;
      }
   }
   FX_CALL(
      _fx_M13K_optim_matopFM16constriction_bopT2N14K_form__atom_tLN14K_form__kexp_t6N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_tLN14K_form__kexp_tri(
         _fx_g20K_optim_matop__OpMul, &cdn_0, &delta_1, ctx_0, code_5, curr_m_idx_ref_0, &v_16, 0), _fx_catch_1);

_fx_catch_1: ;

_fx_endmatch_1: ;
   FX_CHECK_EXN(_fx_cleanup);
   _fx_copy_N14K_form__atom_t(&v_16.t0, &cd_0);
   FX_COPY_PTR(v_16.t1, &code_6);
   _fx_make_Ta3N14K_form__atom_t(&rs_0, &re_0, &rd_0, &new_row_range_0);
   _fx_make_Ta3N14K_form__atom_t(&cs_0, &ce_0, &cd_0, &new_col_range_0);
   _fx_make_R32K_optim_matop__matrix_projection(&target_0->original_matrix, &new_row_range_0, &new_col_range_0,
      target_0->is_transposed, &new_target_0);
   _fx_make_T2R32K_optim_matop__matrix_projectionLN14K_form__kexp_t(&new_target_0, code_6, fx_result);

_fx_cleanup: ;
   _fx_free_Ta2Ta3N14K_form__atom_t(&v_0);
   _fx_free_Ta3N14K_form__atom_t(&row_range_1);
   _fx_free_Ta3N14K_form__atom_t(&col_range_1);
   _fx_free_N14K_form__atom_t(&rsn_0);
   _fx_free_N14K_form__atom_t(&ren_0);
   _fx_free_N14K_form__atom_t(&rdn_0);
   _fx_free_N14K_form__atom_t(&csn_0);
   _fx_free_N14K_form__atom_t(&cen_0);
   _fx_free_N14K_form__atom_t(&cdn_0);
   _fx_free_Ta3N14K_form__atom_t(&v_1);
   _fx_free_T2N14K_form__atom_tLN14K_form__kexp_t(&v_2);
   _fx_free_N14K_form__atom_t(&rs_0);
   if (code_1) {
      _fx_free_LN14K_form__kexp_t(&code_1);
   }
   _fx_free_Ta3N14K_form__atom_t(&v_3);
   _fx_free_T2N14K_form__atom_tLN14K_form__kexp_t(&v_4);
   _fx_free_N14K_form__atom_t(&re_0);
   if (code_2) {
      _fx_free_LN14K_form__kexp_t(&code_2);
   }
   _fx_free_Ta3N14K_form__atom_t(&v_5);
   _fx_free_N14K_form__klit_t(&v_6);
   _fx_free_N14K_form__atom_t(&v_7);
   _fx_free_N14K_form__atom_t(&delta_0);
   _fx_free_T2N14K_form__atom_tLN14K_form__kexp_t(&v_8);
   _fx_free_N14K_form__atom_t(&rd_0);
   if (code_3) {
      _fx_free_LN14K_form__kexp_t(&code_3);
   }
   _fx_free_Ta3N14K_form__atom_t(&v_9);
   _fx_free_T2N14K_form__atom_tLN14K_form__kexp_t(&v_10);
   _fx_free_N14K_form__atom_t(&cs_0);
   if (code_4) {
      _fx_free_LN14K_form__kexp_t(&code_4);
   }
   _fx_free_Ta3N14K_form__atom_t(&v_11);
   _fx_free_T2N14K_form__atom_tLN14K_form__kexp_t(&v_12);
   _fx_free_N14K_form__atom_t(&ce_0);
   if (code_5) {
      _fx_free_LN14K_form__kexp_t(&code_5);
   }
   _fx_free_Ta3N14K_form__atom_t(&v_13);
   _fx_free_N14K_form__klit_t(&v_14);
   _fx_free_N14K_form__atom_t(&v_15);
   _fx_free_N14K_form__atom_t(&delta_1);
   _fx_free_T2N14K_form__atom_tLN14K_form__kexp_t(&v_16);
   _fx_free_N14K_form__atom_t(&cd_0);
   if (code_6) {
      _fx_free_LN14K_form__kexp_t(&code_6);
   }
   _fx_free_Ta3N14K_form__atom_t(&new_row_range_0);
   _fx_free_Ta3N14K_form__atom_t(&new_col_range_0);
   _fx_free_R32K_optim_matop__matrix_projection(&new_target_0);
   return fx_status;
}

static int
   _fx_M13K_optim_matopFM16constriction_bopT2N14K_form__atom_tLN14K_form__kexp_t6N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_tLN14K_form__kexp_tri(
   struct _fx_N13Ast__binary_t_data_t* bop_0,
   struct _fx_N14K_form__atom_t* constriction_0,
   struct _fx_N14K_form__atom_t* sec_operand_0,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* ctx_0,
   struct _fx_LN14K_form__kexp_t_data_t* code_0,
   struct _fx_ri_data_t* curr_m_idx_ref_0,
   struct _fx_T2N14K_form__atom_tLN14K_form__kexp_t* fx_result,
   void* fx_fv)
{
   int fx_status = 0;
   if (sec_operand_0->tag == 2) {
      if (sec_operand_0->u.AtomLit.tag == 8) {
         _fx_make_T2N14K_form__atom_tLN14K_form__kexp_t(constriction_0, code_0, fx_result); goto _fx_endmatch_1;
      }
   }
   _fx_N14K_form__ktyp_t constriction_type_0 = 0;
   _fx_Nt6option1N14K_form__kexp_t v_0 = {0};
   _fx_R10Ast__loc_t loc_0 = ctx_0->t1;
   FX_CALL(
      _fx_M6K_formFM13get_atom_ktypN14K_form__ktyp_t2N14K_form__atom_tR10Ast__loc_t(constriction_0, &loc_0,
         &constriction_type_0, 0), _fx_catch_2);
   FX_CALL(
      _fx_M15K_cfold_dealiasFM9cfold_bopNt6option1N14K_form__kexp_t5N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tN14K_form__ktyp_tR10Ast__loc_t(
         bop_0, constriction_0, sec_operand_0, constriction_type_0, &loc_0, &v_0, 0), _fx_catch_2);
   if (v_0.tag == 2) {
      _fx_N14K_form__kexp_t v_1 = v_0.u.Some;
      if (FX_REC_VARIANT_TAG(v_1) == 5) {
         _fx_make_T2N14K_form__atom_tLN14K_form__kexp_t(&v_1->u.KExpAtom.t0, code_0, fx_result); goto _fx_endmatch_0;
      }
   }
   _fx_N14K_form__kexp_t unfolded_0 = 0;
   _fx_R16Ast__val_flags_t v_2 = {0};
   _fx_Nt6option1N14K_form__kexp_t v_3 = {0};
   _fx_LN14K_form__kexp_t code_1 = 0;
   _fx_N14K_form__atom_t v_4 = {0};
   _fx_R9Ast__id_t temp_bop_name_0;
   if (constriction_0->tag == 1) {
      temp_bop_name_0 = constriction_0->u.AtomId;
   }
   else if (sec_operand_0->tag == 1) {
      temp_bop_name_0 = sec_operand_0->u.AtomId;
   }
   else {
      fx_exn_t v_5 = {0};
      fx_str_t slit_0 = FX_MAKE_STR("Subarray limit inference error");
      FX_CALL(_fx_M3AstFM11compile_errE2RM5loc_tS(&loc_0, &slit_0, &v_5, 0), _fx_catch_0);
      FX_THROW(&v_5, false, _fx_catch_0);

   _fx_catch_0: ;
      fx_free_exn(&v_5);
   }
   FX_CHECK_EXN(_fx_catch_1);
   FX_CALL(
      _fx_M6K_formFM10KExpBinaryN14K_form__kexp_t4N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
         bop_0, constriction_0, sec_operand_0, ctx_0, &unfolded_0), _fx_catch_1);
   _fx_R9Ast__id_t new_constr_name_0;
   FX_CALL(_fx_M6K_formFM7dup_idkR9Ast__id_t2iR9Ast__id_t(curr_m_idx_ref_0->data, &temp_bop_name_0, &new_constr_name_0, 0),
      _fx_catch_1);
   FX_CALL(_fx_M3AstFM17default_val_flagsRM11val_flags_t0(&v_2, 0), _fx_catch_1);
   _fx_M13K_optim_matopFM4SomeNt6option1N14K_form__kexp_t1N14K_form__kexp_t(unfolded_0, &v_3);
   FX_CALL(
      _fx_M6K_formFM14create_kdefvalLN14K_form__kexp_t6R9Ast__id_tN14K_form__ktyp_tR16Ast__val_flags_tNt6option1N14K_form__kexp_tLN14K_form__kexp_tR10Ast__loc_t(
         &new_constr_name_0, constriction_type_0, &v_2, &v_3, code_0, &loc_0, &code_1, 0), _fx_catch_1);
   _fx_M6K_formFM6AtomIdN14K_form__atom_t1R9Ast__id_t(&new_constr_name_0, &v_4);
   _fx_make_T2N14K_form__atom_tLN14K_form__kexp_t(&v_4, code_1, fx_result);

_fx_catch_1: ;
   _fx_free_N14K_form__atom_t(&v_4);
   if (code_1) {
      _fx_free_LN14K_form__kexp_t(&code_1);
   }
   _fx_free_Nt6option1N14K_form__kexp_t(&v_3);
   _fx_free_R16Ast__val_flags_t(&v_2);
   if (unfolded_0) {
      _fx_free_N14K_form__kexp_t(&unfolded_0);
   }

_fx_endmatch_0: ;
   FX_CHECK_EXN(_fx_catch_2);

_fx_catch_2: ;
   _fx_free_Nt6option1N14K_form__kexp_t(&v_0);
   if (constriction_type_0) {
      _fx_free_N14K_form__ktyp_t(&constriction_type_0);
   }

_fx_endmatch_1: ;
   return fx_status;
}

static int
   _fx_M13K_optim_matopFM13juxtapose_idxT2N14K_form__atom_tLN14K_form__kexp_t6Ta3N14K_form__atom_tN14K_form__atom_tBLN14K_form__kexp_tT2N14K_form__ktyp_tR10Ast__loc_tri(
   struct _fx_Ta3N14K_form__atom_t* base_range_0,
   struct _fx_N14K_form__atom_t* constriction_0,
   bool is_end_0,
   struct _fx_LN14K_form__kexp_t_data_t* code_0,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* ctx_0,
   struct _fx_ri_data_t* curr_m_idx_ref_0,
   struct _fx_T2N14K_form__atom_tLN14K_form__kexp_t* fx_result,
   void* fx_fv)
{
   _fx_N14K_form__klit_t v_0 = {0};
   _fx_N14K_form__atom_t v_1 = {0};
   _fx_N14K_form__atom_t base_0 = {0};
   _fx_N14K_form__atom_t end_0 = {0};
   _fx_N14K_form__atom_t delta_0 = {0};
   int fx_status = 0;
   _fx_M6K_formFM7KLitIntN14K_form__klit_t1l(0LL, &v_0);
   _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_0, &v_1);
   FX_CALL(
      _fx_M13K_optim_matopFM12static_checkv4N12Ast__cmpop_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
         &_fx_g20K_optim_matop__CmpLE, &v_1, constriction_0, ctx_0, 0), _fx_cleanup);
   _fx_copy_N14K_form__atom_t(&base_range_0->t0, &base_0);
   _fx_copy_N14K_form__atom_t(&base_range_0->t1, &end_0);
   _fx_copy_N14K_form__atom_t(&base_range_0->t2, &delta_0);
   if (constriction_0->tag == 2) {
      if (constriction_0->u.AtomLit.tag == 8) {
         _fx_N14K_form__atom_t v_2 = {0};
         if (is_end_0) {
            _fx_copy_N14K_form__atom_t(&end_0, &v_2);
         }
         else {
            _fx_copy_N14K_form__atom_t(&base_0, &v_2);
         }
         _fx_make_T2N14K_form__atom_tLN14K_form__kexp_t(&v_2, code_0, fx_result);
         _fx_free_N14K_form__atom_t(&v_2);
         goto _fx_endmatch_0;
      }
   }
   if (base_0.tag == 2) {
      if (delta_0.tag == 2) {
         if (base_0.u.AtomLit.tag == 8) {
            if (delta_0.u.AtomLit.tag == 8) {
               _fx_make_T2N14K_form__atom_tLN14K_form__kexp_t(constriction_0, code_0, fx_result); goto _fx_endmatch_0;
            }
         }
      }
   }
   _fx_T2N14K_form__atom_tLN14K_form__kexp_t v_3 = {0};
   _fx_N14K_form__atom_t multiplied_constr_0 = {0};
   _fx_LN14K_form__kexp_t code_1 = 0;
   _fx_T2N14K_form__atom_tLN14K_form__kexp_t v_4 = {0};
   _fx_N14K_form__atom_t res_0 = {0};
   _fx_LN14K_form__kexp_t code_2 = 0;
   FX_CALL(
      _fx_M13K_optim_matopFM16constriction_bopT2N14K_form__atom_tLN14K_form__kexp_t6N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_tLN14K_form__kexp_tri(
         _fx_g20K_optim_matop__OpMul, constriction_0, &delta_0, ctx_0, code_0, curr_m_idx_ref_0, &v_3, 0), _fx_catch_0);
   _fx_copy_N14K_form__atom_t(&v_3.t0, &multiplied_constr_0);
   FX_COPY_PTR(v_3.t1, &code_1);
   FX_CALL(
      _fx_M13K_optim_matopFM16constriction_bopT2N14K_form__atom_tLN14K_form__kexp_t6N13Ast__binary_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_tLN14K_form__kexp_tri(
         _fx_g20K_optim_matop__OpAdd, &multiplied_constr_0, &base_0, ctx_0, code_1, curr_m_idx_ref_0, &v_4, 0), _fx_catch_0);
   _fx_copy_N14K_form__atom_t(&v_4.t0, &res_0);
   FX_COPY_PTR(v_4.t1, &code_2);
   _fx_N12Ast__cmpop_t v_5;
   if (is_end_0) {
      v_5 = _fx_g20K_optim_matop__CmpLT;
   }
   else {
      v_5 = _fx_g20K_optim_matop__CmpLE;
   }
   FX_CALL(
      _fx_M13K_optim_matopFM12static_checkv4N12Ast__cmpop_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
         &v_5, &base_0, &res_0, ctx_0, 0), _fx_catch_0);
   _fx_N12Ast__cmpop_t v_6;
   if (is_end_0) {
      v_6 = _fx_g20K_optim_matop__CmpLE;
   }
   else {
      v_6 = _fx_g20K_optim_matop__CmpLT;
   }
   FX_CALL(
      _fx_M13K_optim_matopFM12static_checkv4N12Ast__cmpop_tN14K_form__atom_tN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
         &v_6, &res_0, &end_0, ctx_0, 0), _fx_catch_0);
   _fx_make_T2N14K_form__atom_tLN14K_form__kexp_t(&res_0, code_2, fx_result);

_fx_catch_0: ;
   if (code_2) {
      _fx_free_LN14K_form__kexp_t(&code_2);
   }
   _fx_free_N14K_form__atom_t(&res_0);
   _fx_free_T2N14K_form__atom_tLN14K_form__kexp_t(&v_4);
   if (code_1) {
      _fx_free_LN14K_form__kexp_t(&code_1);
   }
   _fx_free_N14K_form__atom_t(&multiplied_constr_0);
   _fx_free_T2N14K_form__atom_tLN14K_form__kexp_t(&v_3);

_fx_endmatch_0: ;

_fx_cleanup: ;
   _fx_free_N14K_form__klit_t(&v_0);
   _fx_free_N14K_form__atom_t(&v_1);
   _fx_free_N14K_form__atom_t(&base_0);
   _fx_free_N14K_form__atom_t(&end_0);
   _fx_free_N14K_form__atom_t(&delta_0);
   return fx_status;
}

static int _fx_M13K_optim_matopFM22form_involved_matrixesv2LN14K_form__kexp_trNt10Hashset__t1R9Ast__id_t(
   struct _fx_LN14K_form__kexp_t_data_t* ktop_0,
   struct _fx_rNt10Hashset__t1R9Ast__id_t_data_t* involved_matrixes_ref_0,
   void* fx_fv)
{
   fx_arr_t table_0 = {0};
   fx_arr_t v_0 = {0};
   fx_arr_t v_1 = {0};
   fx_arr_t v_2 = {0};
   _fx_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t matrix_dependencies_arg_0 = 0;
   _fx_rNt10Hashmap__t2R9Ast__id_tR9Ast__id_t matrix_dependencies_ref_0 = 0;
   _fx_FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t fold_matrdep_kexp__0 = {0};
   _fx_FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t fold_matrdep_ktyp__0 = {0};
   _fx_Nt6option1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t v_3 = 0;
   _fx_Nt6option1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t v_4 = 0;
   _fx_FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t fold_matrdep_atom__0 = {0};
   _fx_Nt6option1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t v_5 = 0;
   _fx_R22K_form__k_fold_callb_t matrdep_callb_0 = {0};
   _fx_LR9Ast__id_t v_6 = 0;
   int fx_status = 0;
   _fx_Nt10Hashset__t1R9Ast__id_t* involved_matrixes_0 = &involved_matrixes_ref_0->data;
   _fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t entry0_0 = (*involved_matrixes_0)->u.t.t0;
   fx_copy_arr(&(*involved_matrixes_0)->u.t.t5, &table_0);
   int_ v_7 = FX_ARR_SIZE(table_0, 0);
   FX_CHKIDX_RANGE(FX_ARR_SIZE(table_0, 0), 0, v_7, 1, 1, 0, _fx_cleanup);
   _fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t* ptr_0 = FX_PTR_1D(_fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t, table_0, 0);
   for (int_ i_0 = 0; i_0 < v_7; i_0++) {
      ptr_0[i_0] = entry0_0;
   }
   (*involved_matrixes_0)->u.t.t1 = 0;
   (*involved_matrixes_0)->u.t.t2 = 0;
   (*involved_matrixes_0)->u.t.t3 = 0;
   FX_CALL(_fx_M7HashsetFM9makeindexA1i1i(FX_ARR_SIZE(table_0, 0) * 2, &v_0, 0), _fx_cleanup);
   fx_arr_t* v_8 = &(*involved_matrixes_0)->u.t.t4;
   FX_FREE_ARR(v_8);
   fx_copy_arr(&v_0, v_8);
   int_ size_0 = 8;
   while (size_0 < 1024) {
      size_0 = size_0 * 2;
   }
   int_ idxsize_0 = size_0 * 2;
   _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t entry0_1 = { 0ULL, _fx_g9Ast__noid, _fx_g9Ast__noid };
   FX_CALL(_fx_M7HashmapFM9makeindexA1i1i(idxsize_0, &v_1, 0), _fx_cleanup);
   _fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t* dstptr_0 = 0;
   int_ n_0 = size_0;
   {
      const int_ shape_0[] = { n_0 };
      FX_CALL(fx_make_arr(1, shape_0, sizeof(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t), 0, 0, 0, &v_2), _fx_cleanup);
   }
   dstptr_0 = (_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t*)v_2.data;
   for (int_ i_1 = 0; i_1 < n_0; i_1++, dstptr_0++) {
      *dstptr_0 = entry0_1;
   }
   FX_CALL(
      _fx_M13K_optim_matopFM1tNt10Hashmap__t2R9Ast__id_tR9Ast__id_t6Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_tiiiA1iA1Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t(
         &entry0_1, 0, 0, 0, &v_1, &v_2, &matrix_dependencies_arg_0), _fx_cleanup);
   FX_CALL(_fx_make_rNt10Hashmap__t2R9Ast__id_tR9Ast__id_t(matrix_dependencies_arg_0, &matrix_dependencies_ref_0), _fx_cleanup);
   _fx_M13K_optim_matopFM7make_fpFPv2N14K_form__kexp_tR22K_form__k_fold_callb_t2rNt10Hashset__t1R9Ast__id_trNt10Hashmap__t2R9Ast__id_tR9Ast__id_t(
      involved_matrixes_ref_0, matrix_dependencies_ref_0, &fold_matrdep_kexp__0);
   _fx_FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t fold_matrdep_ktyp__fp_0 =
      { _fx_M13K_optim_matopFM18fold_matrdep_ktyp_v3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t, 0 };
   FX_COPY_FP(&fold_matrdep_ktyp__fp_0, &fold_matrdep_ktyp__0);
   FX_CALL(
      _fx_M13K_optim_matopFM4SomeNt6option1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t(
         &fold_matrdep_ktyp__0, &v_3), _fx_cleanup);
   FX_CALL(
      _fx_M13K_optim_matopFM4SomeNt6option1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t(
         &fold_matrdep_kexp__0, &v_4), _fx_cleanup);
   _fx_FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t fold_matrdep_atom__fp_0 =
      { _fx_M13K_optim_matopFM18fold_matrdep_atom_v3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t, 0 };
   FX_COPY_FP(&fold_matrdep_atom__fp_0, &fold_matrdep_atom__0);
   FX_CALL(
      _fx_M13K_optim_matopFM4SomeNt6option1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t(
         &fold_matrdep_atom__0, &v_5), _fx_cleanup);
   _fx_make_R22K_form__k_fold_callb_t(v_3, v_4, v_5, &matrdep_callb_0);
   _fx_LN14K_form__kexp_t lst_0 = ktop_0;
   for (; lst_0; lst_0 = lst_0->tl) {
      _fx_N14K_form__kexp_t e_0 = lst_0->hd;
      FX_CALL(fold_matrdep_kexp__0.fp(e_0, &matrdep_callb_0, fold_matrdep_kexp__0.fcv), _fx_catch_0);

   _fx_catch_0: ;
      FX_CHECK_EXN(_fx_cleanup);
   }
   _fx_LR9Ast__id_t lstend_0 = 0;
   int_ v_9 = (*involved_matrixes_0)->u.t.t2;
   for (int_ j_0 = 0; j_0 < v_9; j_0++) {
      FX_CHKIDX(FX_CHKIDX1((*involved_matrixes_0)->u.t.t5, 0, j_0), _fx_catch_1);
      if (FX_PTR_1D(_fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t, (*involved_matrixes_0)->u.t.t5, j_0)->hv >=
             9223372036854775808ULL) {
         FX_CONTINUE(_fx_catch_1);
      }
      FX_CHKIDX(FX_CHKIDX1((*involved_matrixes_0)->u.t.t5, 0, j_0), _fx_catch_1);
      _fx_LR9Ast__id_t node_0 = 0;
      FX_CALL(
         _fx_cons_LR9Ast__id_t(
            &FX_PTR_1D(_fx_Rt24Hashset__hashset_entry_t1R9Ast__id_t, (*involved_matrixes_0)->u.t.t5, j_0)->key, 0, false,
            &node_0), _fx_catch_1);
      FX_LIST_APPEND(v_6, lstend_0, node_0);

   _fx_catch_1: ;
      FX_CHECK_CONTINUE();
      FX_CHECK_EXN(_fx_cleanup);
   }
   _fx_LR9Ast__id_t lst_1 = v_6;
   for (; lst_1; lst_1 = lst_1->tl) {
      _fx_R9Ast__id_t* matr_0 = &lst_1->hd;
      FX_CALL(
         _fx_M13K_optim_matopFM17collect_dep_nodesv3R9Ast__id_trNt10Hashset__t1R9Ast__id_trNt10Hashmap__t2R9Ast__id_tR9Ast__id_t(
            matr_0, involved_matrixes_ref_0, matrix_dependencies_ref_0, 0), _fx_catch_2);

   _fx_catch_2: ;
      FX_CHECK_EXN(_fx_cleanup);
   }

_fx_cleanup: ;
   FX_FREE_ARR(&table_0);
   FX_FREE_ARR(&v_0);
   FX_FREE_ARR(&v_1);
   FX_FREE_ARR(&v_2);
   if (matrix_dependencies_arg_0) {
      _fx_free_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t(&matrix_dependencies_arg_0);
   }
   if (matrix_dependencies_ref_0) {
      _fx_free_rNt10Hashmap__t2R9Ast__id_tR9Ast__id_t(&matrix_dependencies_ref_0);
   }
   FX_FREE_FP(&fold_matrdep_kexp__0);
   FX_FREE_FP(&fold_matrdep_ktyp__0);
   if (v_3) {
      _fx_free_Nt6option1FPv3N14K_form__ktyp_tR10Ast__loc_tR22K_form__k_fold_callb_t(&v_3);
   }
   if (v_4) {
      _fx_free_Nt6option1FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t(&v_4);
   }
   FX_FREE_FP(&fold_matrdep_atom__0);
   if (v_5) {
      _fx_free_Nt6option1FPv3N14K_form__atom_tR10Ast__loc_tR22K_form__k_fold_callb_t(&v_5);
   }
   _fx_free_R22K_form__k_fold_callb_t(&matrdep_callb_0);
   FX_FREE_LIST_SIMPLE(&v_6);
   return fx_status;
}

static int _fx_M13K_optim_matopFM18fold_matrdep_kexp_v2N14K_form__kexp_tR22K_form__k_fold_callb_t(
   struct _fx_N14K_form__kexp_t_data_t* e_0,
   struct _fx_R22K_form__k_fold_callb_t* callb_0,
   void* fx_fv)
{
   fx_str_t v_0 = {0};
   fx_str_t v_1 = {0};
   int fx_status = 0;
   _fx_M13K_optim_matopFM18fold_matrdep_kexp_v2N14K_form__kexp_tR22K_form__k_fold_callb_t_cldata_t* cv_0 =
      (_fx_M13K_optim_matopFM18fold_matrdep_kexp_v2N14K_form__kexp_tR22K_form__k_fold_callb_t_cldata_t*)fx_fv;
   _fx_Nt10Hashset__t1R9Ast__id_t* involved_matrixes_0 = &cv_0->t0->data;
   _fx_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t* matrix_dependencies_0 = &cv_0->t1->data;
   int tag_0 = FX_REC_VARIANT_TAG(e_0);
   if (tag_0 == 31) {
      fx_str_t v_2 = {0};
      fx_str_t v_3 = {0};
      _fx_T3R9Ast__id_tN14K_form__kexp_tR10Ast__loc_t* vcase_0 = &e_0->u.KDefVal;
      _fx_N14K_form__kexp_t rhs_e_0 = vcase_0->t1;
      _fx_R9Ast__id_t* n_0 = &vcase_0->t0;
      bool v_4;
      FX_CALL(_fx_M6K_formFM10is_mutableB2R9Ast__id_tR10Ast__loc_t(n_0, &vcase_0->t2, &v_4, 0), _fx_catch_8);
      if (!v_4) {
         int tag_1 = FX_REC_VARIANT_TAG(rhs_e_0);
         if (tag_1 == 5) {
            _fx_N14K_form__atom_t* v_5 = &rhs_e_0->u.KExpAtom.t0;
            if (v_5->tag == 1) {
               int_ idx_0;
               FX_CALL(
                  _fx_M13K_optim_matopFM18find_idx_or_inserti2Nt10Hashmap__t2R9Ast__id_tR9Ast__id_tR9Ast__id_t(
                     *matrix_dependencies_0, n_0, &idx_0, 0), _fx_catch_0);
               FX_CHKIDX(FX_CHKIDX1((*matrix_dependencies_0)->u.t.t5, 0, idx_0), _fx_catch_0);
               FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t, (*matrix_dependencies_0)->u.t.t5, idx_0)->data =
                  v_5->u.AtomId;

            _fx_catch_0: ;
               goto _fx_endmatch_2;
            }
         }
         if (tag_1 == 12) {
            _fx_T3R9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* vcase_1 = &rhs_e_0->u.KExpCall;
            _fx_LN14K_form__atom_t v_6 = vcase_1->t1;
            if (v_6 != 0) {
               if (v_6->tl == 0) {
                  _fx_N14K_form__atom_t* v_7 = &v_6->hd;
                  if (v_7->tag == 1) {
                     _fx_R9Ast__id_t* matr_0 = &v_7->u.AtomId;
                     _fx_R10Ast__loc_t v_8;
                     FX_CALL(
                        _fx_M6K_formFM11get_idk_locR10Ast__loc_t2R9Ast__id_tR10Ast__loc_t(matr_0, &_fx_g10Ast__noloc, &v_8, 0),
                        _fx_catch_8);
                     bool v_9;
                     FX_CALL(_fx_M6K_formFM10is_mutableB2R9Ast__id_tR10Ast__loc_t(matr_0, &v_8, &v_9, 0), _fx_catch_8);
                     bool t_0;
                     if (!v_9) {
                        FX_CALL(_fx_M3AstFM2ppS1RM4id_t(&vcase_1->t0, &v_2, 0), _fx_catch_8);
                        _fx_R9Ast__id_t v_10;
                        FX_CALL(_fx_M3AstFM13fname_op_aposRM4id_t0(&v_10, 0), _fx_catch_8);
                        FX_CALL(_fx_M3AstFM2ppS1RM4id_t(&v_10, &v_3, 0), _fx_catch_8);
                        t_0 = _fx_F6__eq__B2SS(&v_2, &v_3, 0);
                     }
                     else {
                        t_0 = false;
                     }
                     if (t_0) {
                        _fx_N14K_form__ktyp_t v_11 = 0;
                        _fx_R10Ast__loc_t v_12;
                        FX_CALL(
                           _fx_M6K_formFM11get_idk_locR10Ast__loc_t2R9Ast__id_tR10Ast__loc_t(matr_0, &_fx_g10Ast__noloc, &v_12,
                              0), _fx_catch_3);
                        FX_CALL(_fx_M6K_formFM12get_idk_ktypN14K_form__ktyp_t2R9Ast__id_tR10Ast__loc_t(matr_0, &v_12, &v_11, 0),
                           _fx_catch_3);
                        if (FX_REC_VARIANT_TAG(v_11) == 17) {
                           _fx_T2iN14K_form__ktyp_t* vcase_2 = &v_11->u.KTypArray;
                           if (vcase_2->t0 == 2) {
                              _fx_N14K_form__ktyp_t v_13 = vcase_2->t1;
                              if (FX_REC_VARIANT_TAG(v_13) == 5) {
                                 int_ bits_0 = v_13->u.KTypFloat;
                                 bool t_1;
                                 if (bits_0 == 32) {
                                    t_1 = true;
                                 }
                                 else {
                                    t_1 = bits_0 == 64;
                                 }
                                 if (t_1) {
                                    int_ idx_1;
                                    FX_CALL(
                                       _fx_M13K_optim_matopFM18find_idx_or_inserti2Nt10Hashmap__t2R9Ast__id_tR9Ast__id_tR9Ast__id_t(
                                          *matrix_dependencies_0, n_0, &idx_1, 0), _fx_catch_1);
                                    FX_CHKIDX(FX_CHKIDX1((*matrix_dependencies_0)->u.t.t5, 0, idx_1), _fx_catch_1);
                                    FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t,
                                       (*matrix_dependencies_0)->u.t.t5, idx_1)->data = *matr_0;

                                 _fx_catch_1: ;
                                    goto _fx_endmatch_0;
                                 }
                              }
                           }
                        }
                        FX_CALL(_fx_M6K_formFM9fold_kexpv2N14K_form__kexp_tRM14k_fold_callb_t(e_0, callb_0, 0), _fx_catch_2);

                     _fx_catch_2: ;

                     _fx_endmatch_0: ;
                        FX_CHECK_EXN(_fx_catch_3);

                     _fx_catch_3: ;
                        if (v_11) {
                           _fx_free_N14K_form__ktyp_t(&v_11);
                        }
                        goto _fx_endmatch_2;
                     }
                  }
               }
            }
         }
         if (tag_1 == 19) {
            _fx_T5N14K_form__atom_tN13Ast__border_tN18Ast__interpolate_tLN13K_form__dom_tT2N14K_form__ktyp_tR10Ast__loc_t*
               vcase_3 = &rhs_e_0->u.KExpAt;
            _fx_LN13K_form__dom_t v_14 = vcase_3->t3;
            if (v_14 != 0) {
               if (v_14->hd.tag == 3) {
                  _fx_LN13K_form__dom_t v_15 = v_14->tl;
                  if (v_15 != 0) {
                     if (v_15->tl == 0) {
                        if (v_15->hd.tag == 3) {
                           _fx_N14K_form__atom_t* v_16 = &vcase_3->t0;
                           if (v_16->tag == 1) {
                              _fx_R9Ast__id_t* matr_1 = &v_16->u.AtomId;
                              _fx_R10Ast__loc_t v_17;
                              FX_CALL(
                                 _fx_M6K_formFM11get_idk_locR10Ast__loc_t2R9Ast__id_tR10Ast__loc_t(matr_1, &_fx_g10Ast__noloc,
                                    &v_17, 0), _fx_catch_8);
                              bool v_18;
                              FX_CALL(_fx_M6K_formFM10is_mutableB2R9Ast__id_tR10Ast__loc_t(matr_1, &v_17, &v_18, 0),
                                 _fx_catch_8);
                              if (!v_18) {
                                 _fx_N14K_form__ktyp_t v_19 = 0;
                                 _fx_R10Ast__loc_t v_20;
                                 FX_CALL(
                                    _fx_M6K_formFM11get_idk_locR10Ast__loc_t2R9Ast__id_tR10Ast__loc_t(matr_1,
                                       &_fx_g10Ast__noloc, &v_20, 0), _fx_catch_6);
                                 FX_CALL(
                                    _fx_M6K_formFM12get_idk_ktypN14K_form__ktyp_t2R9Ast__id_tR10Ast__loc_t(matr_1, &v_20, &v_19,
                                       0), _fx_catch_6);
                                 if (FX_REC_VARIANT_TAG(v_19) == 17) {
                                    _fx_T2iN14K_form__ktyp_t* vcase_4 = &v_19->u.KTypArray;
                                    if (vcase_4->t0 == 2) {
                                       _fx_N14K_form__ktyp_t v_21 = vcase_4->t1;
                                       if (FX_REC_VARIANT_TAG(v_21) == 5) {
                                          int_ bits_1 = v_21->u.KTypFloat;
                                          bool t_2;
                                          if (bits_1 == 32) {
                                             t_2 = true;
                                          }
                                          else {
                                             t_2 = bits_1 == 64;
                                          }
                                          if (t_2) {
                                             int_ idx_2;
                                             FX_CALL(
                                                _fx_M13K_optim_matopFM18find_idx_or_inserti2Nt10Hashmap__t2R9Ast__id_tR9Ast__id_tR9Ast__id_t(
                                                   *matrix_dependencies_0, n_0, &idx_2, 0), _fx_catch_4);
                                             FX_CHKIDX(FX_CHKIDX1((*matrix_dependencies_0)->u.t.t5, 0, idx_2), _fx_catch_4);
                                             FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t,
                                                (*matrix_dependencies_0)->u.t.t5, idx_2)->data = *matr_1;

                                          _fx_catch_4: ;
                                             goto _fx_endmatch_1;
                                          }
                                       }
                                    }
                                 }
                                 FX_CALL(_fx_M6K_formFM9fold_kexpv2N14K_form__kexp_tRM14k_fold_callb_t(e_0, callb_0, 0),
                                    _fx_catch_5);

                              _fx_catch_5: ;

                              _fx_endmatch_1: ;
                                 FX_CHECK_EXN(_fx_catch_6);

                              _fx_catch_6: ;
                                 if (v_19) {
                                    _fx_free_N14K_form__ktyp_t(&v_19);
                                 }
                                 goto _fx_endmatch_2;
                              }
                           }
                        }
                     }
                  }
               }
            }
         }
         FX_CALL(_fx_M6K_formFM9fold_kexpv2N14K_form__kexp_tRM14k_fold_callb_t(e_0, callb_0, 0), _fx_catch_7);

      _fx_catch_7: ;

      _fx_endmatch_2: ;
         FX_CHECK_EXN(_fx_catch_8);
      }

   _fx_catch_8: ;
      FX_FREE_STR(&v_3);
      FX_FREE_STR(&v_2);
      goto _fx_endmatch_4;
   }
   if (tag_0 == 8) {
      _fx_T3N13Ast__intrin_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* vcase_5 = &e_0->u.KExpIntrin;
      if (vcase_5->t0.tag == 13) {
         _fx_Ta2R32K_optim_matop__matrix_projection v_22 = {0};
         _fx_R32K_optim_matop__matrix_projection m_pr1_0 = {0};
         _fx_R32K_optim_matop__matrix_projection m_pr2_0 = {0};
         FX_CALL(
            _fx_M13K_optim_matopFM13arglist2m_prsTa2RM17matrix_projection2LN14K_form__atom_tR10Ast__loc_t(vcase_5->t1,
               &vcase_5->t2.t1, &v_22, 0), _fx_catch_9);
         _fx_copy_R32K_optim_matop__matrix_projection(&v_22.t0, &m_pr1_0);
         _fx_copy_R32K_optim_matop__matrix_projection(&v_22.t1, &m_pr2_0);
         _fx_R9Ast__id_t v_23 = m_pr1_0.original_matrix;
         uint64_t __fold_result___0 = 14695981039346656037ULL;
         uint64_t h_0 = __fold_result___0 ^ ((uint64_t)v_23.m ^ 14695981039346656037ULL);
         __fold_result___0 = h_0 * 1099511628211ULL;
         uint64_t h_1 = __fold_result___0 ^ ((uint64_t)v_23.i ^ 14695981039346656037ULL);
         __fold_result___0 = h_1 * 1099511628211ULL;
         uint64_t h_2 = __fold_result___0 ^ ((uint64_t)v_23.j ^ 14695981039346656037ULL);
         __fold_result___0 = h_2 * 1099511628211ULL;
         FX_CALL(
            _fx_M13K_optim_matopFM4add_v3Nt10Hashset__t1R9Ast__id_tR9Ast__id_tq(*involved_matrixes_0, &v_23,
               __fold_result___0 & 9223372036854775807ULL, 0), _fx_catch_9);
         _fx_R9Ast__id_t v_24 = m_pr2_0.original_matrix;
         uint64_t __fold_result___1 = 14695981039346656037ULL;
         uint64_t h_3 = __fold_result___1 ^ ((uint64_t)v_24.m ^ 14695981039346656037ULL);
         __fold_result___1 = h_3 * 1099511628211ULL;
         uint64_t h_4 = __fold_result___1 ^ ((uint64_t)v_24.i ^ 14695981039346656037ULL);
         __fold_result___1 = h_4 * 1099511628211ULL;
         uint64_t h_5 = __fold_result___1 ^ ((uint64_t)v_24.j ^ 14695981039346656037ULL);
         __fold_result___1 = h_5 * 1099511628211ULL;
         FX_CALL(
            _fx_M13K_optim_matopFM4add_v3Nt10Hashset__t1R9Ast__id_tR9Ast__id_tq(*involved_matrixes_0, &v_24,
               __fold_result___1 & 9223372036854775807ULL, 0), _fx_catch_9);

      _fx_catch_9: ;
         _fx_free_R32K_optim_matop__matrix_projection(&m_pr2_0);
         _fx_free_R32K_optim_matop__matrix_projection(&m_pr1_0);
         _fx_free_Ta2R32K_optim_matop__matrix_projection(&v_22);
         goto _fx_endmatch_4;
      }
   }
   if (tag_0 == 12) {
      _fx_T3R9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* vcase_6 = &e_0->u.KExpCall;
      _fx_LN14K_form__atom_t v_25 = vcase_6->t1;
      if (v_25 != 0) {
         _fx_LN14K_form__atom_t v_26 = v_25->tl;
         if (v_26 != 0) {
            if (v_26->tl == 0) {
               _fx_N14K_form__atom_t* v_27 = &v_26->hd;
               if (v_27->tag == 1) {
                  _fx_N14K_form__atom_t* v_28 = &v_25->hd;
                  if (v_28->tag == 1) {
                     _fx_R9Ast__id_t* matr1_0 = &v_28->u.AtomId;
                     _fx_R9Ast__id_t* matr2_0 = &v_27->u.AtomId;
                     FX_CALL(_fx_M3AstFM2ppS1RM4id_t(&vcase_6->t0, &v_0, 0), _fx_cleanup);
                     _fx_R9Ast__id_t v_29;
                     FX_CALL(_fx_M3AstFM12fname_op_mulRM4id_t0(&v_29, 0), _fx_cleanup);
                     FX_CALL(_fx_M3AstFM2ppS1RM4id_t(&v_29, &v_1, 0), _fx_cleanup);
                     if (_fx_F6__eq__B2SS(&v_0, &v_1, 0)) {
                        _fx_N14K_form__ktyp_t v_30 = 0;
                        _fx_N14K_form__ktyp_t v_31 = 0;
                        _fx_R10Ast__loc_t v_32;
                        FX_CALL(
                           _fx_M6K_formFM11get_idk_locR10Ast__loc_t2R9Ast__id_tR10Ast__loc_t(matr1_0, &_fx_g10Ast__noloc, &v_32,
                              0), _fx_catch_12);
                        FX_CALL(
                           _fx_M6K_formFM12get_idk_ktypN14K_form__ktyp_t2R9Ast__id_tR10Ast__loc_t(matr1_0, &v_32, &v_30, 0),
                           _fx_catch_12);
                        _fx_R10Ast__loc_t v_33;
                        FX_CALL(
                           _fx_M6K_formFM11get_idk_locR10Ast__loc_t2R9Ast__id_tR10Ast__loc_t(matr2_0, &_fx_g10Ast__noloc, &v_33,
                              0), _fx_catch_12);
                        FX_CALL(
                           _fx_M6K_formFM12get_idk_ktypN14K_form__ktyp_t2R9Ast__id_tR10Ast__loc_t(matr2_0, &v_33, &v_31, 0),
                           _fx_catch_12);
                        if (FX_REC_VARIANT_TAG(v_31) == 17) {
                           _fx_T2iN14K_form__ktyp_t* vcase_7 = &v_31->u.KTypArray;
                           if (vcase_7->t0 == 2) {
                              _fx_N14K_form__ktyp_t v_34 = vcase_7->t1;
                              if (FX_REC_VARIANT_TAG(v_34) == 5) {
                                 if (FX_REC_VARIANT_TAG(v_30) == 17) {
                                    _fx_T2iN14K_form__ktyp_t* vcase_8 = &v_30->u.KTypArray;
                                    if (vcase_8->t0 == 2) {
                                       _fx_N14K_form__ktyp_t v_35 = vcase_8->t1;
                                       if (FX_REC_VARIANT_TAG(v_35) == 5) {
                                          int_ bits1_0 = v_35->u.KTypFloat;
                                          bool t_3;
                                          if (bits1_0 == v_34->u.KTypFloat) {
                                             if (bits1_0 == 32) {
                                                t_3 = true;
                                             }
                                             else {
                                                t_3 = bits1_0 == 64;
                                             }
                                          }
                                          else {
                                             t_3 = false;
                                          }
                                          if (t_3) {
                                             uint64_t __fold_result___2 = 14695981039346656037ULL;
                                             uint64_t h_6 =
                                                __fold_result___2 ^ ((uint64_t)matr1_0->m ^ 14695981039346656037ULL);
                                             __fold_result___2 = h_6 * 1099511628211ULL;
                                             uint64_t h_7 =
                                                __fold_result___2 ^ ((uint64_t)matr1_0->i ^ 14695981039346656037ULL);
                                             __fold_result___2 = h_7 * 1099511628211ULL;
                                             uint64_t h_8 =
                                                __fold_result___2 ^ ((uint64_t)matr1_0->j ^ 14695981039346656037ULL);
                                             __fold_result___2 = h_8 * 1099511628211ULL;
                                             FX_CALL(
                                                _fx_M13K_optim_matopFM4add_v3Nt10Hashset__t1R9Ast__id_tR9Ast__id_tq(
                                                   *involved_matrixes_0, matr1_0, __fold_result___2 & 9223372036854775807ULL,
                                                   0), _fx_catch_10);
                                             uint64_t __fold_result___3 = 14695981039346656037ULL;
                                             uint64_t h_9 =
                                                __fold_result___3 ^ ((uint64_t)matr2_0->m ^ 14695981039346656037ULL);
                                             __fold_result___3 = h_9 * 1099511628211ULL;
                                             uint64_t h_10 =
                                                __fold_result___3 ^ ((uint64_t)matr2_0->i ^ 14695981039346656037ULL);
                                             __fold_result___3 = h_10 * 1099511628211ULL;
                                             uint64_t h_11 =
                                                __fold_result___3 ^ ((uint64_t)matr2_0->j ^ 14695981039346656037ULL);
                                             __fold_result___3 = h_11 * 1099511628211ULL;
                                             FX_CALL(
                                                _fx_M13K_optim_matopFM4add_v3Nt10Hashset__t1R9Ast__id_tR9Ast__id_tq(
                                                   *involved_matrixes_0, matr2_0, __fold_result___3 & 9223372036854775807ULL,
                                                   0), _fx_catch_10);

                                          _fx_catch_10: ;
                                             goto _fx_endmatch_3;
                                          }
                                       }
                                    }
                                 }
                              }
                           }
                        }
                        FX_CALL(_fx_M6K_formFM9fold_kexpv2N14K_form__kexp_tRM14k_fold_callb_t(e_0, callb_0, 0), _fx_catch_11);

                     _fx_catch_11: ;

                     _fx_endmatch_3: ;
                        FX_CHECK_EXN(_fx_catch_12);

                     _fx_catch_12: ;
                        if (v_31) {
                           _fx_free_N14K_form__ktyp_t(&v_31);
                        }
                        if (v_30) {
                           _fx_free_N14K_form__ktyp_t(&v_30);
                        }
                        goto _fx_endmatch_4;
                     }
                  }
               }
            }
         }
      }
   }
   FX_CALL(_fx_M6K_formFM9fold_kexpv2N14K_form__kexp_tRM14k_fold_callb_t(e_0, callb_0, 0), _fx_catch_13);

_fx_catch_13: ;

_fx_endmatch_4: ;

_fx_cleanup: ;
   FX_FREE_STR(&v_0);
   FX_FREE_STR(&v_1);
   return fx_status;
}

FX_EXTERN_C int
   _fx_M13K_optim_matopFM7make_fpFPv2N14K_form__kexp_tR22K_form__k_fold_callb_t2rNt10Hashset__t1R9Ast__id_trNt10Hashmap__t2R9Ast__id_tR9Ast__id_t(
   struct _fx_rNt10Hashset__t1R9Ast__id_t_data_t* arg0,
   struct _fx_rNt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t* arg1,
   struct _fx_FPv2N14K_form__kexp_tR22K_form__k_fold_callb_t* fx_result)
{
   FX_MAKE_FP_IMPL_START(_fx_M13K_optim_matopFM18fold_matrdep_kexp_v2N14K_form__kexp_tR22K_form__k_fold_callb_t_cldata_t,
      _fx_free_M13K_optim_matopFM18fold_matrdep_kexp_v2N14K_form__kexp_tR22K_form__k_fold_callb_t,
      _fx_M13K_optim_matopFM18fold_matrdep_kexp_v2N14K_form__kexp_tR22K_form__k_fold_callb_t);
   FX_COPY_PTR(arg0, &fcv->t0);
   FX_COPY_PTR(arg1, &fcv->t1);
   return 0;
}

static int
   _fx_M13K_optim_matopFM17collect_dep_nodesv3R9Ast__id_trNt10Hashset__t1R9Ast__id_trNt10Hashmap__t2R9Ast__id_tR9Ast__id_t(
   struct _fx_R9Ast__id_t* m_0,
   struct _fx_rNt10Hashset__t1R9Ast__id_t_data_t* involved_matrixes_ref_0,
   struct _fx_rNt10Hashmap__t2R9Ast__id_tR9Ast__id_t_data_t* matrix_dependencies_ref_0,
   void* fx_fv)
{
   int fx_status = 0;
   _fx_Nt10Hashset__t1R9Ast__id_t* involved_matrixes_0 = &involved_matrixes_ref_0->data;
   _fx_Nt10Hashmap__t2R9Ast__id_tR9Ast__id_t* matrix_dependencies_0 = &matrix_dependencies_ref_0->data;
   _fx_R9Ast__id_t m_1 = *m_0;
   for (;;) {
      _fx_R9Ast__id_t m_2 = m_1;
      _fx_Ta2i v_0;
      FX_CALL(
         _fx_M13K_optim_matopFM9find_idx_Ta2i2Nt10Hashmap__t2R9Ast__id_tR9Ast__id_tR9Ast__id_t(*matrix_dependencies_0, &m_2,
            &v_0, 0), _fx_catch_2);
      int_ j_0 = v_0.t1;
      _fx_Nt6option1R9Ast__id_t v_1;
      if (j_0 >= 0) {
         FX_CHKIDX(FX_CHKIDX1((*matrix_dependencies_0)->u.t.t5, 0, j_0), _fx_catch_2);
         _fx_R9Ast__id_t v_2 =
            FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR9Ast__id_t, (*matrix_dependencies_0)->u.t.t5, j_0)->data;
         _fx_M13K_optim_matopFM4SomeNt6option1R9Ast__id_t1R9Ast__id_t(&v_2, &v_1);
      }
      else {
         v_1 = _fx_g21K_optim_matop__None1_;
      }
      int tag_0 = v_1.tag;
      if (tag_0 == 2) {
         uint64_t __fold_result___0 = 14695981039346656037ULL;
         uint64_t h_0 = __fold_result___0 ^ ((uint64_t)m_2.m ^ 14695981039346656037ULL);
         __fold_result___0 = h_0 * 1099511628211ULL;
         uint64_t h_1 = __fold_result___0 ^ ((uint64_t)m_2.i ^ 14695981039346656037ULL);
         __fold_result___0 = h_1 * 1099511628211ULL;
         uint64_t h_2 = __fold_result___0 ^ ((uint64_t)m_2.j ^ 14695981039346656037ULL);
         __fold_result___0 = h_2 * 1099511628211ULL;
         FX_CALL(
            _fx_M13K_optim_matopFM4add_v3Nt10Hashset__t1R9Ast__id_tR9Ast__id_tq(*involved_matrixes_0, &m_2,
               __fold_result___0 & 9223372036854775807ULL, 0), _fx_catch_0);
         m_1 = v_1.u.Some;

      _fx_catch_0: ;
      }
      else if (tag_0 == 1) {
         uint64_t __fold_result___1 = 14695981039346656037ULL;
         uint64_t h_3 = __fold_result___1 ^ ((uint64_t)m_2.m ^ 14695981039346656037ULL);
         __fold_result___1 = h_3 * 1099511628211ULL;
         uint64_t h_4 = __fold_result___1 ^ ((uint64_t)m_2.i ^ 14695981039346656037ULL);
         __fold_result___1 = h_4 * 1099511628211ULL;
         uint64_t h_5 = __fold_result___1 ^ ((uint64_t)m_2.j ^ 14695981039346656037ULL);
         __fold_result___1 = h_5 * 1099511628211ULL;
         FX_CALL(
            _fx_M13K_optim_matopFM4add_v3Nt10Hashset__t1R9Ast__id_tR9Ast__id_tq(*involved_matrixes_0, &m_2,
               __fold_result___1 & 9223372036854775807ULL, 0), _fx_catch_1);
         FX_BREAK(_fx_catch_1);

      _fx_catch_1: ;
      }
      else {
         FX_FAST_THROW(FX_EXN_NoMatchError, _fx_catch_2);
      }
      FX_CHECK_EXN(_fx_catch_2);

   _fx_catch_2: ;
      FX_CHECK_BREAK();
      FX_CHECK_EXN(_fx_cleanup);
   }

_fx_cleanup: ;
   return fx_status;
}

static int _fx_M13K_optim_matopFM9opg_kexp_N14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t(
   struct _fx_N14K_form__kexp_t_data_t* e_0,
   struct _fx_R17K_form__k_callb_t* callb_0,
   struct _fx_N14K_form__kexp_t_data_t** fx_result,
   void* fx_fv)
{
   _fx_rLN14K_form__kexp_t extra_decls_ref_0 = 0;
   _fx_N14K_form__kexp_t e_1 = 0;
   _fx_N14K_form__kexp_t e_2 = 0;
   fx_str_t v_0 = {0};
   fx_str_t v_1 = {0};
   _fx_LN14K_form__kexp_t v_2 = 0;
   int fx_status = 0;
   FX_CALL(fx_check_stack(), _fx_cleanup);
   _fx_M13K_optim_matopFM9opg_kexp_N14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t_cldata_t* cv_0 =
      (_fx_M13K_optim_matopFM9opg_kexp_N14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t_cldata_t*)fx_fv;
   _fx_ri curr_m_idx_ref_0 = cv_0->t0;
   _fx_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection mat_proj_map_ref_0 = cv_0->t2;
   _fx_Nt10Hashset__t1R9Ast__id_t* involved_matrixes_0 = &cv_0->t1->data;
   _fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection* mat_proj_map_0 = &mat_proj_map_ref_0->data;
   FX_CALL(_fx_make_rLN14K_form__kexp_t(0, &extra_decls_ref_0), _fx_cleanup);
   _fx_LN14K_form__kexp_t* extra_decls_0 = &extra_decls_ref_0->data;
   if (FX_REC_VARIANT_TAG(e_0) == 31) {
      FX_COPY_PTR(e_0, &e_1);
   }
   else {
      FX_CALL(_fx_M6K_formFM9walk_kexpN14K_form__kexp_t2N14K_form__kexp_tRM9k_callb_t(e_0, callb_0, &e_1, 0), _fx_catch_0);

   _fx_catch_0: ;
   }
   FX_CHECK_EXN(_fx_cleanup);
   int tag_0 = FX_REC_VARIANT_TAG(e_1);
   if (tag_0 == 31) {
      _fx_N14K_form__kexp_t rhs_e_0 = 0;
      _fx_N14K_form__kexp_t e_3 = 0;
      _fx_T3R9Ast__id_tN14K_form__kexp_tR10Ast__loc_t* vcase_0 = &e_1->u.KDefVal;
      _fx_R10Ast__loc_t* loc_0 = &vcase_0->t2;
      _fx_R9Ast__id_t* n_0 = &vcase_0->t0;
      FX_CALL(
         _fx_M13K_optim_matopFM9opg_kexp_N14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t(vcase_0->t1, callb_0, &rhs_e_0,
            fx_fv), _fx_catch_5);
      FX_CALL(_fx_M6K_formFM7KDefValN14K_form__kexp_t3R9Ast__id_tN14K_form__kexp_tR10Ast__loc_t(n_0, rhs_e_0, loc_0, &e_3),
         _fx_catch_5);
      bool v_3;
      FX_CALL(_fx_M6K_formFM10is_mutableB2R9Ast__id_tR10Ast__loc_t(n_0, loc_0, &v_3, 0), _fx_catch_5);
      bool v_4;
      if (!v_3) {
         FX_CALL(_fx_M13K_optim_matopFM3memB2Nt10Hashset__t1R9Ast__id_tR9Ast__id_t(*involved_matrixes_0, n_0, &v_4, 0),
            _fx_catch_5);
      }
      else {
         v_4 = false;
      }
      if (v_4) {
         int tag_1 = FX_REC_VARIANT_TAG(rhs_e_0);
         if (tag_1 == 5) {
            if (rhs_e_0->u.KExpAtom.t0.tag == 1) {
               _fx_Nt6option1R32K_optim_matop__matrix_projection v_5 = {0};
               FX_CALL(
                  _fx_M13K_optim_matopFM8find_optNt6option1RM17matrix_projection2Nt10Hashmap__t2R9Ast__id_tRM17matrix_projectionR9Ast__id_t(
                     *mat_proj_map_0, n_0, &v_5, 0), _fx_catch_2);
               if (v_5.tag == 2) {
                  FX_CALL(
                     _fx_M13K_optim_matopFM3addv3Nt10Hashmap__t2R9Ast__id_tRM17matrix_projectionR9Ast__id_tRM17matrix_projection(
                        *mat_proj_map_0, n_0, &v_5.u.Some, 0), _fx_catch_1);

               _fx_catch_1: ;
               }
               FX_CHECK_EXN(_fx_catch_2);

            _fx_catch_2: ;
               _fx_free_Nt6option1R32K_optim_matop__matrix_projection(&v_5);
               goto _fx_endmatch_0;
            }
         }
         if (tag_1 == 12) {
            _fx_LN14K_form__atom_t v_6 = rhs_e_0->u.KExpCall.t1;
            if (v_6 != 0) {
               if (v_6->tl == 0) {
                  _fx_N14K_form__atom_t* v_7 = &v_6->hd;
                  if (v_7->tag == 1) {
                     _fx_R9Ast__id_t* matr_0 = &v_7->u.AtomId;
                     _fx_R10Ast__loc_t v_8;
                     FX_CALL(
                        _fx_M6K_formFM11get_idk_locR10Ast__loc_t2R9Ast__id_tR10Ast__loc_t(matr_0, &_fx_g10Ast__noloc, &v_8, 0),
                        _fx_catch_5);
                     bool v_9;
                     FX_CALL(_fx_M6K_formFM10is_mutableB2R9Ast__id_tR10Ast__loc_t(matr_0, &v_8, &v_9, 0), _fx_catch_5);
                     if (!v_9) {
                        _fx_Nt6option1R32K_optim_matop__matrix_projection v_10 = {0};
                        _fx_R32K_optim_matop__matrix_projection mat_proj_0 = {0};
                        _fx_R32K_optim_matop__matrix_projection v_11 = {0};
                        FX_CALL(
                           _fx_M13K_optim_matopFM8find_optNt6option1RM17matrix_projection2Nt10Hashmap__t2R9Ast__id_tRM17matrix_projectionR9Ast__id_t(
                              *mat_proj_map_0, matr_0, &v_10, 0), _fx_catch_3);
                        int tag_2 = v_10.tag;
                        if (tag_2 == 2) {
                           _fx_copy_R32K_optim_matop__matrix_projection(&v_10.u.Some, &mat_proj_0);
                        }
                        else if (tag_2 == 1) {
                           _fx_N14K_form__klit_t v_12 = {0};
                           _fx_N14K_form__atom_t v_13 = {0};
                           _fx_N14K_form__klit_t v_14 = {0};
                           _fx_N14K_form__atom_t v_15 = {0};
                           _fx_N14K_form__klit_t v_16 = {0};
                           _fx_N14K_form__atom_t v_17 = {0};
                           _fx_Ta3N14K_form__atom_t v_18 = {0};
                           _fx_N14K_form__klit_t v_19 = {0};
                           _fx_N14K_form__atom_t v_20 = {0};
                           _fx_N14K_form__klit_t v_21 = {0};
                           _fx_N14K_form__atom_t v_22 = {0};
                           _fx_N14K_form__klit_t v_23 = {0};
                           _fx_N14K_form__atom_t v_24 = {0};
                           _fx_Ta3N14K_form__atom_t v_25 = {0};
                           _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid, &v_12);
                           _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_12, &v_13);
                           _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid, &v_14);
                           _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_14, &v_15);
                           _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid, &v_16);
                           _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_16, &v_17);
                           _fx_make_Ta3N14K_form__atom_t(&v_13, &v_15, &v_17, &v_18);
                           _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid, &v_19);
                           _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_19, &v_20);
                           _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid, &v_21);
                           _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_21, &v_22);
                           _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid, &v_23);
                           _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_23, &v_24);
                           _fx_make_Ta3N14K_form__atom_t(&v_20, &v_22, &v_24, &v_25);
                           _fx_make_R32K_optim_matop__matrix_projection(matr_0, &v_18, &v_25, false, &mat_proj_0);
                           _fx_free_Ta3N14K_form__atom_t(&v_25);
                           _fx_free_N14K_form__atom_t(&v_24);
                           _fx_free_N14K_form__klit_t(&v_23);
                           _fx_free_N14K_form__atom_t(&v_22);
                           _fx_free_N14K_form__klit_t(&v_21);
                           _fx_free_N14K_form__atom_t(&v_20);
                           _fx_free_N14K_form__klit_t(&v_19);
                           _fx_free_Ta3N14K_form__atom_t(&v_18);
                           _fx_free_N14K_form__atom_t(&v_17);
                           _fx_free_N14K_form__klit_t(&v_16);
                           _fx_free_N14K_form__atom_t(&v_15);
                           _fx_free_N14K_form__klit_t(&v_14);
                           _fx_free_N14K_form__atom_t(&v_13);
                           _fx_free_N14K_form__klit_t(&v_12);
                        }
                        else {
                           FX_FAST_THROW(FX_EXN_NoMatchError, _fx_catch_3);
                        }
                        FX_CHECK_EXN(_fx_catch_3);
                        FX_CALL(
                           _fx_M13K_optim_matopFM15m_pr_transposedRM17matrix_projection1RM17matrix_projection(&mat_proj_0,
                              &v_11, 0), _fx_catch_3);
                        FX_CALL(
                           _fx_M13K_optim_matopFM3addv3Nt10Hashmap__t2R9Ast__id_tRM17matrix_projectionR9Ast__id_tRM17matrix_projection(
                              *mat_proj_map_0, n_0, &v_11, 0), _fx_catch_3);

                     _fx_catch_3: ;
                        _fx_free_R32K_optim_matop__matrix_projection(&v_11);
                        _fx_free_R32K_optim_matop__matrix_projection(&mat_proj_0);
                        _fx_free_Nt6option1R32K_optim_matop__matrix_projection(&v_10);
                        goto _fx_endmatch_0;
                     }
                  }
               }
            }
         }
         if (tag_1 == 19) {
            _fx_T5N14K_form__atom_tN13Ast__border_tN18Ast__interpolate_tLN13K_form__dom_tT2N14K_form__ktyp_tR10Ast__loc_t*
               vcase_1 = &rhs_e_0->u.KExpAt;
            _fx_LN13K_form__dom_t v_26 = vcase_1->t3;
            if (v_26 != 0) {
               _fx_LN13K_form__dom_t v_27 = v_26->tl;
               if (v_27 != 0) {
                  if (v_27->tl == 0) {
                     _fx_N13K_form__dom_t* v_28 = &v_27->hd;
                     if (v_28->tag == 3) {
                        _fx_Ta3N14K_form__atom_t* vcase_2 = &v_28->u.DomainRange;
                        _fx_N13K_form__dom_t* v_29 = &v_26->hd;
                        if (v_29->tag == 3) {
                           _fx_Ta3N14K_form__atom_t* vcase_3 = &v_29->u.DomainRange;
                           _fx_N14K_form__atom_t* v_30 = &vcase_1->t0;
                           if (v_30->tag == 1) {
                              _fx_R9Ast__id_t* matr_1 = &v_30->u.AtomId;
                              _fx_R10Ast__loc_t v_31;
                              FX_CALL(
                                 _fx_M6K_formFM11get_idk_locR10Ast__loc_t2R9Ast__id_tR10Ast__loc_t(matr_1, &_fx_g10Ast__noloc,
                                    &v_31, 0), _fx_catch_5);
                              bool v_32;
                              FX_CALL(_fx_M6K_formFM10is_mutableB2R9Ast__id_tR10Ast__loc_t(matr_1, &v_31, &v_32, 0),
                                 _fx_catch_5);
                              if (!v_32) {
                                 _fx_Nt6option1R32K_optim_matop__matrix_projection v_33 = {0};
                                 _fx_R32K_optim_matop__matrix_projection mat_proj_1 = {0};
                                 _fx_Ta3N14K_form__atom_t v_34 = {0};
                                 _fx_Ta3N14K_form__atom_t v_35 = {0};
                                 _fx_T2R32K_optim_matop__matrix_projectionLN14K_form__kexp_t v_36 = {0};
                                 _fx_R32K_optim_matop__matrix_projection new_mat_proj_0 = {0};
                                 _fx_LN14K_form__kexp_t new_extra_decls_0 = 0;
                                 FX_CALL(
                                    _fx_M13K_optim_matopFM8find_optNt6option1RM17matrix_projection2Nt10Hashmap__t2R9Ast__id_tRM17matrix_projectionR9Ast__id_t(
                                       *mat_proj_map_0, matr_1, &v_33, 0), _fx_catch_4);
                                 int tag_3 = v_33.tag;
                                 if (tag_3 == 2) {
                                    _fx_copy_R32K_optim_matop__matrix_projection(&v_33.u.Some, &mat_proj_1);
                                 }
                                 else if (tag_3 == 1) {
                                    _fx_N14K_form__klit_t v_37 = {0};
                                    _fx_N14K_form__atom_t v_38 = {0};
                                    _fx_N14K_form__klit_t v_39 = {0};
                                    _fx_N14K_form__atom_t v_40 = {0};
                                    _fx_N14K_form__klit_t v_41 = {0};
                                    _fx_N14K_form__atom_t v_42 = {0};
                                    _fx_Ta3N14K_form__atom_t v_43 = {0};
                                    _fx_N14K_form__klit_t v_44 = {0};
                                    _fx_N14K_form__atom_t v_45 = {0};
                                    _fx_N14K_form__klit_t v_46 = {0};
                                    _fx_N14K_form__atom_t v_47 = {0};
                                    _fx_N14K_form__klit_t v_48 = {0};
                                    _fx_N14K_form__atom_t v_49 = {0};
                                    _fx_Ta3N14K_form__atom_t v_50 = {0};
                                    _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid,
                                       &v_37);
                                    _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_37, &v_38);
                                    _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid,
                                       &v_39);
                                    _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_39, &v_40);
                                    _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid,
                                       &v_41);
                                    _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_41, &v_42);
                                    _fx_make_Ta3N14K_form__atom_t(&v_38, &v_40, &v_42, &v_43);
                                    _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid,
                                       &v_44);
                                    _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_44, &v_45);
                                    _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid,
                                       &v_46);
                                    _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_46, &v_47);
                                    _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid,
                                       &v_48);
                                    _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_48, &v_49);
                                    _fx_make_Ta3N14K_form__atom_t(&v_45, &v_47, &v_49, &v_50);
                                    _fx_make_R32K_optim_matop__matrix_projection(matr_1, &v_43, &v_50, false, &mat_proj_1);
                                    _fx_free_Ta3N14K_form__atom_t(&v_50);
                                    _fx_free_N14K_form__atom_t(&v_49);
                                    _fx_free_N14K_form__klit_t(&v_48);
                                    _fx_free_N14K_form__atom_t(&v_47);
                                    _fx_free_N14K_form__klit_t(&v_46);
                                    _fx_free_N14K_form__atom_t(&v_45);
                                    _fx_free_N14K_form__klit_t(&v_44);
                                    _fx_free_Ta3N14K_form__atom_t(&v_43);
                                    _fx_free_N14K_form__atom_t(&v_42);
                                    _fx_free_N14K_form__klit_t(&v_41);
                                    _fx_free_N14K_form__atom_t(&v_40);
                                    _fx_free_N14K_form__klit_t(&v_39);
                                    _fx_free_N14K_form__atom_t(&v_38);
                                    _fx_free_N14K_form__klit_t(&v_37);
                                 }
                                 else {
                                    FX_FAST_THROW(FX_EXN_NoMatchError, _fx_catch_4);
                                 }
                                 FX_CHECK_EXN(_fx_catch_4);
                                 _fx_make_Ta3N14K_form__atom_t(&vcase_3->t0, &vcase_3->t1, &vcase_3->t2, &v_34);
                                 _fx_make_Ta3N14K_form__atom_t(&vcase_2->t0, &vcase_2->t1, &vcase_2->t2, &v_35);
                                 FX_CALL(
                                    _fx_M13K_optim_matopFM11m_pr_slicedT2RM17matrix_projectionLN14K_form__kexp_t6RM17matrix_projectionTa3N14K_form__atom_tTa3N14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_tLN14K_form__kexp_tri(
                                       &mat_proj_1, &v_34, &v_35, &vcase_1->t4, *extra_decls_0, curr_m_idx_ref_0, &v_36, 0),
                                    _fx_catch_4);
                                 _fx_copy_R32K_optim_matop__matrix_projection(&v_36.t0, &new_mat_proj_0);
                                 FX_COPY_PTR(v_36.t1, &new_extra_decls_0);
                                 _fx_free_LN14K_form__kexp_t(extra_decls_0);
                                 FX_COPY_PTR(new_extra_decls_0, extra_decls_0);
                                 FX_CALL(
                                    _fx_M13K_optim_matopFM3addv3Nt10Hashmap__t2R9Ast__id_tRM17matrix_projectionR9Ast__id_tRM17matrix_projection(
                                       *mat_proj_map_0, n_0, &new_mat_proj_0, 0), _fx_catch_4);

                              _fx_catch_4: ;
                                 if (new_extra_decls_0) {
                                    _fx_free_LN14K_form__kexp_t(&new_extra_decls_0);
                                 }
                                 _fx_free_R32K_optim_matop__matrix_projection(&new_mat_proj_0);
                                 _fx_free_T2R32K_optim_matop__matrix_projectionLN14K_form__kexp_t(&v_36);
                                 _fx_free_Ta3N14K_form__atom_t(&v_35);
                                 _fx_free_Ta3N14K_form__atom_t(&v_34);
                                 _fx_free_R32K_optim_matop__matrix_projection(&mat_proj_1);
                                 _fx_free_Nt6option1R32K_optim_matop__matrix_projection(&v_33);
                                 goto _fx_endmatch_0;
                              }
                           }
                        }
                     }
                  }
               }
            }
         }

      _fx_endmatch_0: ;
         FX_CHECK_EXN(_fx_catch_5);
      }
      FX_COPY_PTR(e_3, &e_2);

   _fx_catch_5: ;
      if (e_3) {
         _fx_free_N14K_form__kexp_t(&e_3);
      }
      if (rhs_e_0) {
         _fx_free_N14K_form__kexp_t(&rhs_e_0);
      }
      goto _fx_endmatch_1;
   }
   if (tag_0 == 8) {
      _fx_T3N13Ast__intrin_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* vcase_4 = &e_1->u.KExpIntrin;
      if (vcase_4->t0.tag == 13) {
         _fx_Ta2R32K_optim_matop__matrix_projection v_51 = {0};
         _fx_R32K_optim_matop__matrix_projection m_pr1_0 = {0};
         _fx_R32K_optim_matop__matrix_projection m_pr2_0 = {0};
         _fx_R32K_optim_matop__matrix_projection m_pr1_1 = {0};
         _fx_R32K_optim_matop__matrix_projection m_pr2_1 = {0};
         _fx_LN14K_form__atom_t v_52 = 0;
         _fx_T2N14K_form__ktyp_tR10Ast__loc_t* ctx_0 = &vcase_4->t2;
         FX_CALL(
            _fx_M13K_optim_matopFM13arglist2m_prsTa2RM17matrix_projection2LN14K_form__atom_tR10Ast__loc_t(vcase_4->t1,
               &ctx_0->t1, &v_51, 0), _fx_catch_6);
         _fx_copy_R32K_optim_matop__matrix_projection(&v_51.t0, &m_pr1_0);
         _fx_copy_R32K_optim_matop__matrix_projection(&v_51.t1, &m_pr2_0);
         FX_CALL(
            _fx_M13K_optim_matopFM19process_matrix_infoRM17matrix_projection5RM17matrix_projectionT2N14K_form__ktyp_tR10Ast__loc_trirLN14K_form__kexp_trNt10Hashmap__t2R9Ast__id_tRM17matrix_projection(
               &m_pr1_0, ctx_0, curr_m_idx_ref_0, extra_decls_ref_0, mat_proj_map_ref_0, &m_pr1_1, 0), _fx_catch_6);
         FX_CALL(
            _fx_M13K_optim_matopFM19process_matrix_infoRM17matrix_projection5RM17matrix_projectionT2N14K_form__ktyp_tR10Ast__loc_trirLN14K_form__kexp_trNt10Hashmap__t2R9Ast__id_tRM17matrix_projection(
               &m_pr2_0, ctx_0, curr_m_idx_ref_0, extra_decls_ref_0, mat_proj_map_ref_0, &m_pr2_1, 0), _fx_catch_6);
         FX_CALL(
            _fx_M13K_optim_matopFM13m_prs2arglistLN14K_form__atom_t2RM17matrix_projectionRM17matrix_projection(&m_pr1_1,
               &m_pr2_1, &v_52, 0), _fx_catch_6);
         FX_CALL(
            _fx_M6K_formFM10KExpIntrinN14K_form__kexp_t3N13Ast__intrin_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
               &_fx_g25K_optim_matop__IntrinGEMM, v_52, ctx_0, &e_2), _fx_catch_6);

      _fx_catch_6: ;
         if (v_52) {
            _fx_free_LN14K_form__atom_t(&v_52);
         }
         _fx_free_R32K_optim_matop__matrix_projection(&m_pr2_1);
         _fx_free_R32K_optim_matop__matrix_projection(&m_pr1_1);
         _fx_free_R32K_optim_matop__matrix_projection(&m_pr2_0);
         _fx_free_R32K_optim_matop__matrix_projection(&m_pr1_0);
         _fx_free_Ta2R32K_optim_matop__matrix_projection(&v_51);
         goto _fx_endmatch_1;
      }
   }
   if (tag_0 == 12) {
      _fx_T3R9Ast__id_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t* vcase_5 = &e_1->u.KExpCall;
      _fx_LN14K_form__atom_t v_53 = vcase_5->t1;
      if (v_53 != 0) {
         _fx_LN14K_form__atom_t v_54 = v_53->tl;
         if (v_54 != 0) {
            if (v_54->tl == 0) {
               _fx_N14K_form__atom_t* v_55 = &v_54->hd;
               if (v_55->tag == 1) {
                  _fx_N14K_form__atom_t* v_56 = &v_53->hd;
                  if (v_56->tag == 1) {
                     _fx_R9Ast__id_t* matr1_0 = &v_56->u.AtomId;
                     _fx_R9Ast__id_t* matr2_0 = &v_55->u.AtomId;
                     FX_CALL(_fx_M3AstFM2ppS1RM4id_t(&vcase_5->t0, &v_0, 0), _fx_cleanup);
                     _fx_R9Ast__id_t v_57;
                     FX_CALL(_fx_M3AstFM12fname_op_mulRM4id_t0(&v_57, 0), _fx_cleanup);
                     FX_CALL(_fx_M3AstFM2ppS1RM4id_t(&v_57, &v_1, 0), _fx_cleanup);
                     bool t_0;
                     if (_fx_F6__eq__B2SS(&v_0, &v_1, 0)) {
                        FX_CALL(
                           _fx_M13K_optim_matopFM3memB2Nt10Hashset__t1R9Ast__id_tR9Ast__id_t(*involved_matrixes_0, matr1_0,
                              &t_0, 0), _fx_cleanup);
                     }
                     else {
                        t_0 = false;
                     }
                     bool t_1;
                     if (t_0) {
                        FX_CALL(
                           _fx_M13K_optim_matopFM3memB2Nt10Hashset__t1R9Ast__id_tR9Ast__id_t(*involved_matrixes_0, matr2_0,
                              &t_1, 0), _fx_cleanup);
                     }
                     else {
                        t_1 = false;
                     }
                     if (t_1) {
                        _fx_R32K_optim_matop__matrix_projection v_58 = {0};
                        _fx_R32K_optim_matop__matrix_projection v_59 = {0};
                        _fx_LN14K_form__atom_t v_60 = 0;
                        FX_CALL(
                           _fx_M13K_optim_matopFM21get_matrix_projectionRM17matrix_projection2R9Ast__id_trNt10Hashmap__t2R9Ast__id_tRM17matrix_projection(
                              matr1_0, mat_proj_map_ref_0, &v_58, 0), _fx_catch_7);
                        FX_CALL(
                           _fx_M13K_optim_matopFM21get_matrix_projectionRM17matrix_projection2R9Ast__id_trNt10Hashmap__t2R9Ast__id_tRM17matrix_projection(
                              matr2_0, mat_proj_map_ref_0, &v_59, 0), _fx_catch_7);
                        FX_CALL(
                           _fx_M13K_optim_matopFM13m_prs2arglistLN14K_form__atom_t2RM17matrix_projectionRM17matrix_projection(
                              &v_58, &v_59, &v_60, 0), _fx_catch_7);
                        FX_CALL(
                           _fx_M6K_formFM10KExpIntrinN14K_form__kexp_t3N13Ast__intrin_tLN14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_t(
                              &_fx_g25K_optim_matop__IntrinGEMM, v_60, &vcase_5->t2, &e_2), _fx_catch_7);

                     _fx_catch_7: ;
                        if (v_60) {
                           _fx_free_LN14K_form__atom_t(&v_60);
                        }
                        _fx_free_R32K_optim_matop__matrix_projection(&v_59);
                        _fx_free_R32K_optim_matop__matrix_projection(&v_58);
                        goto _fx_endmatch_1;
                     }
                  }
               }
            }
         }
      }
   }
   FX_COPY_PTR(e_1, &e_2);

_fx_endmatch_1: ;
   FX_CHECK_EXN(_fx_cleanup);
   if (*extra_decls_0 == 0) {
      FX_COPY_PTR(e_2, fx_result);
   }
   else {
      FX_CALL(_fx_cons_LN14K_form__kexp_t(e_2, *extra_decls_0, true, &v_2), _fx_cleanup);
      _fx_R10Ast__loc_t v_61;
      FX_CALL(_fx_M6K_formFM12get_kexp_locR10Ast__loc_t1N14K_form__kexp_t(e_2, &v_61, 0), _fx_cleanup);
      FX_CALL(_fx_M6K_formFM10rcode2kexpN14K_form__kexp_t2LN14K_form__kexp_tR10Ast__loc_t(v_2, &v_61, fx_result, 0),
         _fx_cleanup);
   }

_fx_cleanup: ;
   if (extra_decls_ref_0) {
      _fx_free_rLN14K_form__kexp_t(&extra_decls_ref_0);
   }
   if (e_1) {
      _fx_free_N14K_form__kexp_t(&e_1);
   }
   if (e_2) {
      _fx_free_N14K_form__kexp_t(&e_2);
   }
   FX_FREE_STR(&v_0);
   FX_FREE_STR(&v_1);
   if (v_2) {
      _fx_free_LN14K_form__kexp_t(&v_2);
   }
   return fx_status;
}

FX_EXTERN_C int
   _fx_M13K_optim_matopFM7make_fpFPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t3rirNt10Hashset__t1R9Ast__id_trNt10Hashmap__t2R9Ast__id_tRM17matrix_projection(
   struct _fx_ri_data_t* arg0,
   struct _fx_rNt10Hashset__t1R9Ast__id_t_data_t* arg1,
   struct _fx_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t* arg2,
   struct _fx_FPN14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t* fx_result)
{
   FX_MAKE_FP_IMPL_START(_fx_M13K_optim_matopFM9opg_kexp_N14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t_cldata_t,
      _fx_free_M13K_optim_matopFM9opg_kexp_N14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t,
      _fx_M13K_optim_matopFM9opg_kexp_N14K_form__kexp_t2N14K_form__kexp_tR17K_form__k_callb_t);
   FX_COPY_PTR(arg0, &fcv->t0);
   FX_COPY_PTR(arg1, &fcv->t1);
   FX_COPY_PTR(arg2, &fcv->t2);
   return 0;
}

static int
   _fx_M13K_optim_matopFM19process_matrix_infoRM17matrix_projection5RM17matrix_projectionT2N14K_form__ktyp_tR10Ast__loc_trirLN14K_form__kexp_trNt10Hashmap__t2R9Ast__id_tRM17matrix_projection(
   struct _fx_R32K_optim_matop__matrix_projection* m_pr_0,
   struct _fx_T2N14K_form__ktyp_tR10Ast__loc_t* ctx_0,
   struct _fx_ri_data_t* curr_m_idx_ref_0,
   struct _fx_rLN14K_form__kexp_t_data_t* extra_decls_ref_0,
   struct _fx_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t* mat_proj_map_ref_0,
   struct _fx_R32K_optim_matop__matrix_projection* fx_result,
   void* fx_fv)
{
   _fx_Nt6option1R32K_optim_matop__matrix_projection v_0 = {0};
   _fx_R32K_optim_matop__matrix_projection v_1 = {0};
   int fx_status = 0;
   _fx_LN14K_form__kexp_t* extra_decls_0 = &extra_decls_ref_0->data;
   _fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection* mat_proj_map_0 = &mat_proj_map_ref_0->data;
   _fx_R9Ast__id_t v_2 = m_pr_0->original_matrix;
   _fx_Ta2i v_3;
   FX_CALL(
      _fx_M13K_optim_matopFM9find_idx_Ta2i2Nt10Hashmap__t2R9Ast__id_tRM17matrix_projectionR9Ast__id_t(*mat_proj_map_0, &v_2,
         &v_3, 0), _fx_cleanup);
   int_ j_0 = v_3.t1;
   if (j_0 >= 0) {
      FX_CHKIDX(FX_CHKIDX1((*mat_proj_map_0)->u.t.t5, 0, j_0), _fx_cleanup);
      _fx_copy_R32K_optim_matop__matrix_projection(
         &FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection, (*mat_proj_map_0)->u.t.t5,
             j_0)->data, &v_1);
      _fx_M13K_optim_matopFM4SomeNt6option1RM17matrix_projection1RM17matrix_projection(&v_1, &v_0);
   }
   else {
      _fx_copy_Nt6option1R32K_optim_matop__matrix_projection(&_fx_g19K_optim_matop__None, &v_0);
   }
   int tag_0 = v_0.tag;
   if (tag_0 == 2) {
      _fx_Ta3N14K_form__atom_t col_range_0 = {0};
      _fx_Ta3N14K_form__atom_t row_range_0 = {0};
      _fx_R32K_optim_matop__matrix_projection target_0 = {0};
      _fx_T2R32K_optim_matop__matrix_projectionLN14K_form__kexp_t v_4 = {0};
      _fx_R32K_optim_matop__matrix_projection m_pr_1 = {0};
      _fx_LN14K_form__kexp_t new_extra_decls_0 = 0;
      _fx_R32K_optim_matop__matrix_projection* tar_m_0 = &v_0.u.Some;
      bool is_transposed_0 = tar_m_0->is_transposed;
      _fx_copy_Ta3N14K_form__atom_t(&tar_m_0->col_range, &col_range_0);
      _fx_copy_Ta3N14K_form__atom_t(&tar_m_0->row_range, &row_range_0);
      if (is_transposed_0) {
         _fx_make_R32K_optim_matop__matrix_projection(&m_pr_0->original_matrix, &m_pr_0->row_range, &m_pr_0->col_range,
            !m_pr_0->is_transposed, &target_0);
      }
      else {
         _fx_copy_R32K_optim_matop__matrix_projection(m_pr_0, &target_0);
      }
      FX_CALL(
         _fx_M13K_optim_matopFM11m_pr_slicedT2RM17matrix_projectionLN14K_form__kexp_t6RM17matrix_projectionTa3N14K_form__atom_tTa3N14K_form__atom_tT2N14K_form__ktyp_tR10Ast__loc_tLN14K_form__kexp_tri(
            &target_0, &row_range_0, &col_range_0, ctx_0, *extra_decls_0, curr_m_idx_ref_0, &v_4, 0), _fx_catch_0);
      _fx_copy_R32K_optim_matop__matrix_projection(&v_4.t0, &m_pr_1);
      FX_COPY_PTR(v_4.t1, &new_extra_decls_0);
      _fx_free_LN14K_form__kexp_t(extra_decls_0);
      FX_COPY_PTR(new_extra_decls_0, extra_decls_0);
      _fx_copy_R32K_optim_matop__matrix_projection(&m_pr_1, fx_result);

   _fx_catch_0: ;
      if (new_extra_decls_0) {
         _fx_free_LN14K_form__kexp_t(&new_extra_decls_0);
      }
      _fx_free_R32K_optim_matop__matrix_projection(&m_pr_1);
      _fx_free_T2R32K_optim_matop__matrix_projectionLN14K_form__kexp_t(&v_4);
      _fx_free_R32K_optim_matop__matrix_projection(&target_0);
      _fx_free_Ta3N14K_form__atom_t(&row_range_0);
      _fx_free_Ta3N14K_form__atom_t(&col_range_0);
   }
   else if (tag_0 == 1) {
      _fx_copy_R32K_optim_matop__matrix_projection(m_pr_0, fx_result);
   }
   else {
      FX_FAST_THROW(FX_EXN_NoMatchError, _fx_cleanup);
   }

_fx_cleanup: ;
   _fx_free_Nt6option1R32K_optim_matop__matrix_projection(&v_0);
   _fx_free_R32K_optim_matop__matrix_projection(&v_1);
   return fx_status;
}

static int
   _fx_M13K_optim_matopFM21get_matrix_projectionRM17matrix_projection2R9Ast__id_trNt10Hashmap__t2R9Ast__id_tRM17matrix_projection(
   struct _fx_R9Ast__id_t* matr_0,
   struct _fx_rNt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection_data_t* mat_proj_map_ref_0,
   struct _fx_R32K_optim_matop__matrix_projection* fx_result,
   void* fx_fv)
{
   _fx_Nt6option1R32K_optim_matop__matrix_projection v_0 = {0};
   _fx_R32K_optim_matop__matrix_projection v_1 = {0};
   int fx_status = 0;
   _fx_Nt10Hashmap__t2R9Ast__id_tR32K_optim_matop__matrix_projection* mat_proj_map_0 = &mat_proj_map_ref_0->data;
   _fx_Ta2i v_2;
   FX_CALL(
      _fx_M13K_optim_matopFM9find_idx_Ta2i2Nt10Hashmap__t2R9Ast__id_tRM17matrix_projectionR9Ast__id_t(*mat_proj_map_0, matr_0,
         &v_2, 0), _fx_cleanup);
   int_ j_0 = v_2.t1;
   if (j_0 >= 0) {
      FX_CHKIDX(FX_CHKIDX1((*mat_proj_map_0)->u.t.t5, 0, j_0), _fx_cleanup);
      _fx_copy_R32K_optim_matop__matrix_projection(
         &FX_PTR_1D(_fx_Rt20Hashmap__hashentry_t2R9Ast__id_tR32K_optim_matop__matrix_projection, (*mat_proj_map_0)->u.t.t5,
             j_0)->data, &v_1);
      _fx_M13K_optim_matopFM4SomeNt6option1RM17matrix_projection1RM17matrix_projection(&v_1, &v_0);
   }
   else {
      _fx_copy_Nt6option1R32K_optim_matop__matrix_projection(&_fx_g19K_optim_matop__None, &v_0);
   }
   int tag_0 = v_0.tag;
   if (tag_0 == 2) {
      _fx_copy_R32K_optim_matop__matrix_projection(&v_0.u.Some, fx_result);
   }
   else if (tag_0 == 1) {
      _fx_N14K_form__klit_t v_3 = {0};
      _fx_N14K_form__atom_t v_4 = {0};
      _fx_N14K_form__klit_t v_5 = {0};
      _fx_N14K_form__atom_t v_6 = {0};
      _fx_N14K_form__klit_t v_7 = {0};
      _fx_N14K_form__atom_t v_8 = {0};
      _fx_Ta3N14K_form__atom_t v_9 = {0};
      _fx_N14K_form__klit_t v_10 = {0};
      _fx_N14K_form__atom_t v_11 = {0};
      _fx_N14K_form__klit_t v_12 = {0};
      _fx_N14K_form__atom_t v_13 = {0};
      _fx_N14K_form__klit_t v_14 = {0};
      _fx_N14K_form__atom_t v_15 = {0};
      _fx_Ta3N14K_form__atom_t v_16 = {0};
      _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid, &v_3);
      _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_3, &v_4);
      _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid, &v_5);
      _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_5, &v_6);
      _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid, &v_7);
      _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_7, &v_8);
      _fx_make_Ta3N14K_form__atom_t(&v_4, &v_6, &v_8, &v_9);
      _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid, &v_10);
      _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_10, &v_11);
      _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid, &v_12);
      _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_12, &v_13);
      _fx_M6K_formFM7KLitNilN14K_form__klit_t1N14K_form__ktyp_t(_fx_g23K_optim_matop__KTypVoid, &v_14);
      _fx_M6K_formFM7AtomLitN14K_form__atom_t1N14K_form__klit_t(&v_14, &v_15);
      _fx_make_Ta3N14K_form__atom_t(&v_11, &v_13, &v_15, &v_16);
      _fx_make_R32K_optim_matop__matrix_projection(matr_0, &v_9, &v_16, false, fx_result);
      _fx_free_Ta3N14K_form__atom_t(&v_16);
      _fx_free_N14K_form__atom_t(&v_15);
      _fx_free_N14K_form__klit_t(&v_14);
      _fx_free_N14K_form__atom_t(&v_13);
      _fx_free_N14K_form__klit_t(&v_12);
      _fx_free_N14K_form__atom_t(&v_11);
      _fx_free_N14K_form__klit_t(&v_10);
      _fx_free_Ta3N14K_form__atom_t(&v_9);
      _fx_free_N14K_form__atom_t(&v_8);
      _fx_free_N14K_form__klit_t(&v_7);
      _fx_free_N14K_form__atom_t(&v_6);
      _fx_free_N14K_form__klit_t(&v_5);
      _fx_free_N14K_form__atom_t(&v_4);
      _fx_free_N14K_form__klit_t(&v_3);
   }
   else {
      FX_FAST_THROW(FX_EXN_NoMatchError, _fx_cleanup);
   }

_fx_cleanup: ;
   _fx_free_Nt6option1R32K_optim_matop__matrix_projection(&v_0);
   _fx_free_R32K_optim_matop__matrix_projection(&v_1);
   return fx_status;
}

FX_EXTERN_C int fx_init_K_optim_matop(void)
{
   int fx_status = 0;
   return fx_status;
}

FX_EXTERN_C void fx_deinit_K_optim_matop(void)
{

}

